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FOREWORD 



MP/M II™ is a multi-user operating system for any microcomputer 
based on an 8-bit Zilog Z80® or Intel 8080 or 8085 microprocessor. 
Typically, an MP/M II system resides in approximately 27k. 16k of the 
operating system must reside in common memory. 

The version of MP/M II that Digital Research ships cannot be 
directly booted on any specific hardware configuration. However , all 
the hardware-dependent code is isolated in specific subroutines that 
can be modified by the user. 

This document describes the procedures required to implement MP/M 
II for a custom hardware environment. At minimum, the custom hardware 
environment must include an 8080, 8085, or Z-80 processor, 32K bytes 
of random access memory (RAM), a system console, and a real-time 
clock. This manual assumes the reader is familiar with the following 
Digital Research publications: 

• MP/M II User's Guide 

• MP/M II Programmer's Guide 

It is also assumed that the reader has already implemented a CP/M 
2 Basic Input Output System (BIOS), preferrably on the target MP/M II 
machine. 
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SECTION 1 
MP/M II ALTERATION PROCEDURE 



The MP/M II operating system is designed so that the user can 
alter a specific set of subroutines that define the hardware operating 
environment. By modifying these subroutines, the user can produce a 
diskette that operates with any IBM-3740 format compatible diskette 
subsystem and other peripheral devices. 

Although the standard MP/M II is shipped on single-density floppy 
disks, field-alteration features allow the user to adapt MP/M II to a 
wide variety of disk subsystems, including single drive minidisks and 
high-capacity "hard disk" systems. 

To achieve device independence, MP/M II has isolated all 
hardware-dependent code into an XIOS module. The user can rewrite the 
distributed version of the XIOS to customize the interface between the 
remaining MP/M II modules and the user's own hardware system. The 
user can also rewrite the distributed version of the LDRBIOS, which 
loads the MP/M II system from the disk. 

There are actually two versions of the XIOS: the RESXIOS for 
non-banked systems, and the BNKXIOS for banked memory systems. To 
avoid repeating both names for each reference, the term XIOS refers to 
both versions o 

1.1 Preparation for MP/M II Alteration 

To simplify the alteration process, this document assumes that a 
CP/M 2 BIOS has already been implemented on the target MP/M II 
machine. You must implement both the BIOS as well as the XIOS because 
the MP/M II loader uses a CP/M 2 BIOS to load the MP/M II system. 
Once loaded, MP/M II uses the XIOS and not the BIOS. The CP/M 2 BIOS 
used by the MP/M II loader is called the LDRBIOS. 

Another good reason for implementing CP/M 2 on the target MP/M 
machine is that debugging your XIOS is simpler when you can run SID or 
DDT under a CP/M 2 system. 
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1.2 Customizing the MPMLDR 

To customize the MPMLDR, you must integrate a LDRBIOS for your 
hardware configuration into the MPMLDR.COM file supplied on the 
distribution disk. The required LDRBIOS can be simply a version of 
your CP/M 2 BIOS, altered as described below and renamed to LDRBIOS. 

The customized LDRBIOS must have an ORG of 1700H, perform console 
output functions, and be able to read data from a single disk drive. 
The first call MPMLDR makes to LDRBIOS is SELDSK: select disk. If 
your system has devices that require initialization, place 
initialization code or perhaps a call to the LDRBIOS cold start at the 
beginning of the SELDSK handler. 

The LDRBIOS need only perform the operations described above. 
Other functions can be deleted to conserve space. There is only one 
restriction on memory space for LDRBIOS: it cannot extend above the 
base of the MPM.SYS which it is loading. (GENSYS Lists MP/M Ii's base 
address in its load map.) However, if you plan to boot MP/M II from 
floppy disks," you will encounter a LDRBIOS upper address limit of 
1A00H in order to place the MPMLDR.COM file on two system tracks. 

Test LDRBIOS completely to ensure that it properly performs 
console character output and disk reads. Be especially careful that 
no disk write operations occur accidently during read operations, and 
check that the proper track and sectors are addressed on all reads. 

Use the following steps to integrate a custom LDRBIOS into the 
MPMLDR.COM: 

1. Obtain access to a CP/M system and prepare a LDRBIOS. HEX file. 

2. Read the MPMLDR.COM file into memory using either DDT or SID. 

A>DDT MPMLDR.COM 

DDT VERS 2.0 
NEXT PC 
1780 0100 

3. Using the input command (I), specify that the LDRBIOS. HEX file is 
to be read in and then read (R) in the file. This operation 
overlays the LDRBIOS portion of the MP/M loader. 

-ILDRBIOS.HEX 
-R 

NEXT PC 
1A00 0000 
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4. Exit the debugger, returning to the CCP by executing a jump to 
location zero. 

-GO 

5. Write the updated memory image onto a disk file. Use the CP/M 
SAVE command to write the updated memory image onto a disk file. 
In the example below, the X in front of the filename simply 
designates an experimental version, and preserves the original. 

A>SAVE 26 XMPNLDR.COM 

6. Test XMPMLDR.COM and then rename it to MPMLDR.COM. 

» 

1.3 Customizing the XIOS 

As you are tailoring MP/M II for your computer system, your new 
XIOS will require software development and testing. Two sample XIOS's 
are listed in the Appendixes, and can be used as models for the 
customized package. 

The XIOS entry points, including both basic and extended, are 
described in Sections 2 and 3. These sections, along with the 
appendixes, give you the information you need to write your XIOS. 
Your initial implementation of an XIOS should use polled I/O without 
any interrupts. This initial system can run without a clock 
interrupt. Implement interrupts only after your XIOS is fully 
developed and tested. 

Follow the procedure below to prepare a BNKXIOS.SPR or 
RESXIOS.SPR file from your customized XIOS: 

1. Assemble your BNKXIOS.ASM or RESXIOS.ASM with RMAC or any other 
assembler that can generate a file of type REL in Microsoft's 
relocatable object file format. 

A > RMAC BNKXIOS 

2. Link the BNKXIOS. REL or RESXIOS.REL file using the Digital 
Research LINK-80 to produce the BNKXIOS.SPR or RESXIOS.SPR file. 

A>LINK BNKXIOS [OS] 
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1.4 Debugging an XIOS 

You can debug an XIOS or a resident system process with DDT or 
SID running under CP/M. The debugging technique is outlined in the 
following steps: 

1. Determine the amount of memory available to MP/M II when the 
debugger and CP/M are resident. Do this by loading the debugger 
and then listing the jump instruction at location 0005H. This 
jump is to the base of the debugger. 

A>DDT 

DDT VERS 2.0 

-L5 

0005 JMP C800 

2. Using GENSYS running under CP/M, generate and MPM.SYS file that 
specifies the top of memory determined by the previous step, 
allowing at least 256 bytes for a patch area. 

«r « • 

Top page of operating system (xx) ? C6 
... 

Also while executing GENSYS, specify a breakpoint restart number 
different from the one used by the CP/M debugger you plan to use. 
The suggested MP/M II restart is #6; however, any restart from #1 
to #6 can usually be used. The CP/M debuggers normally use 
restart #7. 

• o © 

Breakpoint RST (xx) ? 6 

s • . 

Note: If you are also debugging a resident system process, be 
sure to select it for inclusion in MPM.SYS during GENSYS 
execution. 

3. Using CP/M, load the MPMLDR.COM file into memory. 

A>DDT MPMLDR.COM 

DDT VERS 2.0 
NEXT PC 
1A00 0100 
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4. Place the characters "$B M into locations 005DH and 005EH of the 
default FCB based at 005CH. This operation can be done with the 
I command: 

-I$B 

The "$B" causes the MPMLDR to break after loading the MPM.SYS 
file. You can specify the breakpoint restart to be executed by 
the MPMLDR by adding one additional character to the string in 
the fourth position of the default FCB. 

-I$B6 

In the example above, a restart #6 is to be executed by the 
MPMLDR when loading of the MPM.SYS file is completed. If no 
restart number is supplied, the default restart is #7. Remember, 
the restart number at the location 5FH is the CP/M debugger 
restart number, not the MP/M debugger restart. 

5. Execute the MPMLDR.COM program by entering a G command: 

-G 

6. After the G command, the MP/M II loader loads the MP/M II 
operating system into memory and displays a memory map. You may 
obtain a hard copy of your load map during the GENSYS operation 
by entering a ~P before executing GENSYS. 

7. If you are debugging an XIOS, note the address of the BNKXIOS.SPR 
or RESXIOS.SPR memory segment. You must also note the address of 
SYSTEM.DAT. If you are debugging a resident system process, note 
its address as well. The debugger lists actual addresses at the 
console. If your hard copy listing of the XIOS or RSP starts at 
zero, you must add the base address listed in the GENSYS load map 
to each address on the listing to make the listing reflect actual 
addresses. Or you can assemble the code again with an additional 
ORG statement specifying the base listed in the load map, 
although the object code generated by this assembly is unusable. 

8. Using the X command, determine the MP/M II beginning execution 
address. The address is the first location past the current 
program counter. 



■X 



P = 09F2 



In the example shown above, MP/M II execution starts at address 
09F3H, which is the first instruction after the restart at 09F2H. 
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9. Begin execution of MP/M II using the G command, specifying the 
start address and any breakpoints you need in your code. The 
actual memory address can be determined by entering an H command 
to add the code segment base address given in the memory map to 
the relative displacement address in your XIOS or resident system 
process listing. 

The following example shows how to set a breakpoint in an XIOS at 
the list subroutine entry point given in the memory map: 



XIOSJMP TBL C300H 0100H 

-G9F3,C30F 

09F3H is the beginning MP/M II execution address and C30FH is the 
XIOS jump vector address of the list subroutine. 

10. At this point, you have MP/M II running with CP/M and the CP/M 
debugger also in memory. Because interrupts are left enabled 
during operation of the CP/M debugger, ensure that interrupt- 
driven code does not execute through a breakpoint. 

Because the CP/M debugger operates with interrupts left enabled, 
it is a somewhat difficult task to debug an interrupt-dr iven 
console handler. Approach this problem by leaving console #0 in 
a polled mode while debugging the other consoles in an interrupt- 
driven mode. Once this is done, very little, if any, debugging 
is required to adapt the interrupt-dr iven code from another 
console to console #0. It is further recommended that you 
maintain a debug version of your XIOS that has polled I/O for 
console #0. Otherwise, it is not possible to run the CP/M 
debugger underneath the MP/M II system because the CP/M debugger 
cannot get any console input, as all of it is sent to the MP/M 
interrupt-dr iven console #0 handler. 

1.5 Directly Booting MP/M II 

In systems where MP/M II is to be booted directly at cold start 
rather than loaded and run as a transient program under CP/M, the 
customized MPMLDR.COM file and cold start loader en be placed on the 
first two tracks of an eight-inch floppy disk. If a CP/M SYSGEN.COM 
program is available, use it to write the MPMLDR.COM file on the first 
two tracks. If a SYSGEN.COM program is not available, or if 
SYSGEN.COM does not work because a different media such as a five-inch 
floppy disk or hard disk is to be used, the user must write two 
programs: a simple memory loader, called GETSYS, which brings the 
MP/M loader into memory, and a program called PUTSYS, which places the 
MPMLDR on the first two tracks of a disk. If you have implemented a 
CP/M 2 BIOS, you have probably already prepared GETSYS and PUTSYS. 
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You can use either the SID or DDT debugger instead of writing a 
GETSYS program. This method is shown in the following example, which 
also uses SYSGEN in place of PUTSYS. Sample skeletal GETSYS and 
PUTSYS programs are given in Section 1.5.3. 

To load and run the MP/M system automatically, you must also 
supply a cold start loader that loads the MP/M loader into memory from 
the first two tracks of the diskette. Modify the CP/M 2 cold start 
loader in the following manner: change the load address to 0100H and 
the execution address to 0100H. 

The following bootstrap techniques are specific to the Intel MDS- 
800, which has a boot ROM that loads the first track into location 
3000H. However, the steps shown can be applied in a general sense to 
any custom hardware environment. 

1.5.1 Preparing an MP/M II Boot Using SYSGEN 

If a SYSGEN program is available, use the following steps to 
prepare a diskette that cold starts in MP/M lis 

1. Prepare the MPMLDR.COM file by integrating your custom LDRBIOS as 
described in Section 1.2. Test the MPMLDR.COM and verify that it 
operates properly* 

2. Execute either DDT or SID. 

A>DDT 

DDT VERS 2.0 

3« Using the input command (I), specify that the MPMLDR.HEX file is 
to be read in then read (R) in the file with an offset of 880H 
bytes. 

•"IMPMLDR,. HEX 
-R880 

NEXT PC 
2480 0100 

4. Using the I command, specify that the BOOT.HEX file is to be read 
in and then read in the file with an offset that loads the boot 
into memory at 900H. You can use the H command to calculate the 
offset. 

-H900 3000 
3900 D900 

-IBOOT.HEX 
-RD900 

NEXT PC 
2480 0000 
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5. Return to the CP/M console command processor (CCP) by jumping to 
location zero, 

-GO 

6. Use the SYSGEN program to write the new cold start loader onto 
the first two tracks of the diskette. 

A> SYSGEN 

SYSGEN VER 2.0 

SOURCE DRIVE NAME (OR RETURN TO SKIP)<cr> 
DESTINATION DRIVE NAME (OR RETURN TO REBOOT) B 
DESTINATION ON B, THEN TYPE RETURN<cr> 
FUNCTION COMPLETE 

1.5.2 Custom Generation of an MP/M II Boot 

If a SYSGEN program is not available, then use the following 
steps to prepare a diskette that cold starts MP/M II; 

1. Write a GETSYS program that reads the custom MPMLDR.COM file into 

location 3380H and the cold start loader (or boot program) into 

location 3300H. Code GETSYS so that it starts at location 100H 
(base of the TPA) . 



Or, as in the previous example, you can use either SID or DDT 
perform this function instead of writing a GETSYS program. 



to 



Run the GETSYS program using an initialized MP/M II diskette to 
see if GETSYS loads the MP/M loader starting at 3380H (the 
operating system actually starts 128 bytes later at 3400H) . 

Write a PUTSYS program that writes memory starting at 3380H back 
onto the first two tracks of the diskette. The PUTSYS program 
should be located at 200H. 



4. Test the PUTSYS program using a blank, uninitialized diskette by 
writing a portion of memory to the first two tracks; clear memory 
and read it back. Test PUTSYS completely, because you will use 
this program to alter the MP/M II system diskette. 

5. Use PUTSYS to place the MP/M II loader and cold start loader onto 
the first two tracks of a blank diskette. 
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1.5.3 Sample GETSYS and PUTSYS Programs 

The following programs provide a framework for the GETSYS and 
PUTSYS program. You must insert WRITESEC subroutines to write the 
specific sectors. 



GETSYS PROGRAM - READ TRACKS AND 1 TO MEMORY AT 3380H 

USE 
(SCRATCH REGISTER) 
TRACK COUNT (0, 1) 
SECTOR COUNT (1,2,. ..,26) 
(SCRATCH REGISTER PAIR) 
LOAD ADDRESS 
SET TO STACK ADDRESS 

;SET STACK POINTER TO SCRATCH AREA 

;SET BASE LOAD ADDRESS 

I START WITH TRACK 

;READ NEXT TRACK (INITIALLY 0) 

;READ STARTING WITH SECTOR 1 

;READ NEXT SECTOR 

?USER-SUPPLIED SUBROUTINE 

;MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 

?HL = HL + 128 

; SECTOR = SECTOR + 1 

? CHECK FOR END OF TRACK 

/CARRY GENERATED IF SECTOR < 27 



? GETSYS P 

? REGISTER 


ROGRAM - 1 




A 






B 


i 




C 






DE 






HL 






SP 




START: 


LXI 


SP,3380H 




LXI 


H, 3380H 




MVI 


B, 


RDTRKJ 


MVI 


C,l 


RDSEC: 








CALL 


READSEC 




LXI 


D, 128 




DAD 


D 




INR 


C 




MOV 


A,C 




CPI 


27 




JC 


RDSEC 



ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 
INR B 

MOV A f B ;TEST FOR LAST TRACK 

CPI 2 
JC RDTRK ; CARRY GENERATED IF TRACK < 2 

ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
HLT 



; USER-SUPPLIED SUBROUTINE TO READ THE DISK 
READSEC: 

; ENTER WITH TRACK NUMBER IN REGISTER B, 
; SECTOR NUMBER IN REGISTER C, AND 

ADDRESS TO FILL IN HL 



PUSH 
PUSH 



H 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



perform disk read at this point, branch to 
label START if an error occurs 



POP 
POP 

RET 
END 



H 

B 

START 



RECOVER HL 

RECOVER B AND C REGISTERS 

BACK TO MAIN PROGRAM 
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; PUTSYS P 


ROGRAM - 1 


; REGISTER 






A 






B 






C 






DE 






HL 






SP 




START ; 


LXI 


SP,3380H 




LXI 


H, 3380H 




MVI 


B f 


WRTRKs 








MVI 


C,l 


WRSEC: 








CALL 


WRITESEC 




LXI 


D,128 




DAD 


D 




INR 


C 




MOV 


A,C 




CPI 


27 




JC 


WRSEC 



WRITE TRACKS AND 1 FROM MEMORY AT 3380H 

USE 
(SCRATCH REGISTER) 
TRACK COUNT (0, 1) 
SECTOR COUNT (1,2,..., 26) 
(SCRATCH REGISTER PAIR) 
LOAD ADDRESS 
SET TO STACK ADDRESS 



SET STACK POINTER TO SCRATCH AREA 

SET BASE LOAD ADDRESS 

START WITH TRACK 

WRITE NEXT TRACK (INITIALLY 0) 

WRITE STARTING WITH SECTOR 1 

WRITE NEXT SECTOR 

USER-SUPPLIED SUBROUTINE 

MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 

HL » HL + 128 

SECTOR = SECTOR + 1 

CHECK FOR END OF TRACK 

CARRY GENERATED IF SECTOR < 27 



I ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 
INR B 

MOV A,B ;TEST FOR LAST TRACK 

CPI 2 
JC WRTRK ; CARRY GENERATED IF TRACK < 2 

; ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
HLT 

? USER-SUPPLIED SUBROUTINE TO WRITE THE DISK 
WRITESEC: 

; ENTER WITH TRACK NUMBER IN REGISTER B, 
; SECTOR NUMBER IN REGISTER C, AND 

ADDRESS TO FILL IN HL 



PUSH B 
PUSH H 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



perform disk read at this point, branch to 
label START if an error occurs 



POP 


H 


POP 


B 


RET 





RECOVER HL 

RECOVER B AND C REGISTERS 

BACK TO MAIN PROGRAM 



END 



START 
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1.6 Loading MPM.SYS Without the MPMLDR 

The MPM.SYS file is a fully-relocated absolute file that 
can be moved directly into memory and then executed without the use of 
the MPMLDR. The format of the MPM.SYS file is in Table 1-1, below. 

Table 1-1. MPM.SYS Pile Pormat 

Record Contents 

1 First 128 bytes of the SYSDAT page 

2 Second 128 bytes of the SYSDAT page 

3-n MP/M operating system in reverse order, 

top down. 

The actual base of the SYSDAT page in memory is specified in byte 
000 of the SYSDAT page. The rest of MP/M II operating system is to be 
located directly below the SYSDAT page. In Table 1-1, n represents 
the number of records. Bytes 120-121 of the SYSDAT page contain the 
value of n* The execution address of MP/M is specified by the page 
address given in byte Oil of the SYSDAT page. 

MPMLDR could load the MPM.SYS file into memory and then move it 
to its destination specified in the SYSDAT page (byte 000). Or the 
user could write a separate custom program to produce a directly 
loadable memory image from the MPM.SYS file. 

1.7 Digital Research Copyright and Trademark 

Read your MP/M II Licensing Agreement? it specifies your legal 
responsibilities when copying the MP/M II system. Place the copyright 
notices 

Copyright © 1981 Digital Research 

on the label of each copy you make of your customized MP/M II 
diskette. Digital Research also requests that you place your MP/M II 
serial number on the label of any copies you make. Remember also that 
MP/M II is a trademark of Digital Research, and the first time it 
appears on a disk label or in a document, it should be followed by a 
trademark symbol, as shown below: 

MP/M II™ 
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1.8 Disk Organization 

This section describes MP/M II sector allocation for a system in 
which the MPMLDR resides on the first two tracks of a single density 
diskette. The first sector (see Table 1-2) contains an optional 
software boot section. Disk controllers are often set up to bring 
track 0, sector 1 into memory at a specific location, often location 
0000H. The program in this sector, called BOOT, is responsible for 
bringing the remaining sectors into memory starting at location 0100H. 
If your controller does not have a built-in sector load, you can 
ignore the program in track 0, sector 1, and begin the load from track 
sector 2 to location 0100H. 

As an example, the Intel MDS-800 hardware cold start loader 
brings -track 0, sector 1 into absolute address 3000H. When this 
sector is loaded, control transfers to location 3000H, where the 
bootstrap operation commences by loading the remainder of track 0, and 
all of track 1 into memory, starting at 0100H. Remember that this 
bootstrap loader is of little use in a non-MDS environment, but it is 
useful to examine it because you will have to duplicate some of its 
actions in your own cold start loader. 
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Table 1-2. MP/M II Sample Disk Organization 



Track# 


Sector! 


Page# 


Memory Address 


00 


01 




(boot address) 


00 


02 


00 


0100H 


n 


03 


it 


0180H 


w 


04 


01 


0200H 


n 


05 


n 


0280H 


n 


06 


02 


0300H 


» 


07 


n 


0380H 


n 


08 


03 


0400H 


n 


09 


n 


0480H 


it 


10 


04 


0500H 


n 


11 


it 


0580H 


is 


12 


05 


0600H 


N 


13 


n 


0680H 


n 


14 


06 


0700H 


n 


15 


it 


0780H 


n 


16 


07 


0800H 


» 


17 


» 


0880H 


If 


18 


08 


0900H 


It 


19 


it 


0980H 


16 


20 


09 


0A00H 


ffl 


21 


n 


0A80H 


It 


22 


10 


0B00H 


n 


23 


n 


0B80H 


» 


24 


11 


0C00H 


00 


25 


it 


0C80H 


00 


26 


12 


0D00H 


01 


01 


n 


0D80H 


If 


02 


13 


0E00H 


It 


03 


it 


0E80H 


It 


04 


14 


0F00H 


It 


05 


n 


0P80H 


It 


06 


15 


1000H 


It 


07 


it 


1080H 


It 


08 


16 


1100H 


It 


09 


w 


1180H 


It 


10 


17 


1200H 


w 


11 


it 


1280H 


It 


12 


18 


1300H 


If 


13 


it 


1380H 


It 


14 


19 


1400H 


If 


15 


» 


1480H 


It 


16 


20 


1500H 


It 


17 


n 


1580H 


It 


18 


21 


1600H 


01 


19 


w 


1680H 


01 


20 


22 


1700H 


It 


21 


it 


1780H 


It 


22 


23 


1800H 


It 


23 


n 


1880H 


II 


24 


24 


1900H 


It 


25 


n 


1980H 


01 


26 


25 


1A00H 



MP/M Module name 
Cold Start Loader 
MPMLDR 



MPMLDR 
LDRBDOS 



LDRBDOS 
LDRBIOS 



LDRBIOS 
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SECTION 2 
MP/M II BIOS 



2.1 MP/M II BIOS Overview 

The MP/M II BDOS and XDOS access peripheral devices as "logical" 
devices within the BIOS and XIOS. To customize MP/M II for a specific 
hardware environment, the system implementor must prepare the BIOS and 
XIOS subroutines upon which the BDOS and XDOS depend. This section 
describes how the logical portions of MP/M II expect to interact with 
the BIOS; Section 3 describes the same for the XIOS. 

The BDOS and XDOS call BIOS subroutines through a "jump vector" 
located at the base of the BIOS as shown below and in Appendixes D and 
E. The jump vector, is a sequence of 26 jump instructions that send 
program control to the individual BIOS subroutines. All subroutines 
must be represented in the jump vector during MP/M II system 
regeneration. However, certain subroutines may be "empty", that is, 
they may contain only a single RET instruction. 



The BIOS jump vector must take the form shown below. The 
individual jump addresses for each entry point are listed to the left. 
Note that the XIOS entry points immediately follow the last BIOS entry 
point. 

COMMONBASE, TERMINATE PROCESS 

WARM BOOT, TERMINATE PROCESS 

CHECK FOR CONSOLE CHAR READY 

READ CONSOLE CHARACTER IN 

WRITE CONSOLE CHARACTER OUT 

WRITE LIST CHARACTER OUT 

not used by MP/M II 

not used by MP/M II 

MOVE TO TRACK 00 

SELECT DISK DRIVE 

SET TRACK NUMBER 

SET SECTOR NUMBER 

SET DMA ADDRESS 

READ SELECTED SECTOR 

WRITE SELECTED SECTOR 

not used by MP/M II 

SECTOR TRANSLATE SUBROUTINE 

Each jump address corresponds to a particular subroutine that 
performs a specific function, as outlined in Section 2.3. Three major 
functions are performed by calls to the jump table: process 
termination from COMMONBASE and WBOOT; simple character I/O from 
CONST, CONIN, CONOUT, and LIST; and disk I/O from HOME, SELDSK, 
SETTRK, SETSEC, SETDMA, READ, WRITE, and SECTRAN. 



BIOS+00H 


JMP 


COMMONBASE 


BIOS+03H 


JMP 


WBOOT 


BIOS+06H 


JMP 


CONST 


BIOS+09H 


JMP 


CONIN 


BIOS+0CH 


JMP 


CONOUT 


BIOS+OFH 


JMP 


LIST 


BIOS+12H 


JMP 


PUNCH 


BIOS+15H 


JMP 


READER 


BI0S+18H 


JMP 


HOME 


BI0S+1BH 


JMP 


SELDSK 


BI0S+1EH 


JMP 


SETTRK 


BIOS+21H 


JMP 


SETSEC 


BIOS+24H 


JMP 


SETDMA 


BI0S+27H 


JMP 


READ 


BI0S+2AH 


JMP 


WRITE 


BI0S+2DH 


JMP 


LISTST 


BIOS+30H- 


JMP 


SECTRAN 
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All simple character I/O operations are assumed to be performed 
in ASCII, upper and lower case, with high-order (parity) bit set to 
zero. The BDOS depends on only the CONST, CONIN, and CONOUT 
subroutines for simple character I/O. An ASCII ~Z (1AH) is 
interpreted as an end-of-file condition for an input device. 

2.2 BIOS Device Characteristics and Entry Points 

The BIOS generally supports three types of devices: consoles, 
list devices and disks. The characteristics of each device are 
described below: 

Consoles are the principal interactive devices that communicate 
with operators, and are accessed through CONST, CONIN, and CONOUT. 
Typically, consoles are devices such as CRTs of teletypes. MP/M II 
supports up to 16 consoles or character I/O devices. 

List Devices , if they exist on your system, are usually hard-copy 
devices, such as printers or teletypes. MP/M II supports up to 16 
list devices. 

Disks are accessed through a sequence of calls on the various 
disk I/O subroutines. These subroutines set up the disk number to 
access, the track and sector on a particular disk, and the direct 
memory access (DMA) address involved in the I/O operation. After all 
these parameters have been set up, a call is made to the READ or WRITE 
function to perform the actual I/O operation. Note that there is 
often a single call to SELDSK to select a disk drive, followed by a 
number of read or write operations to the selected disk before 
selecting another drive for subsequent operations. Similarly, there 
may be a single call to set the DMA address, followed by several calls 
which read or write from the selected DMA address before the DMA 
address is changed. The track and sector subroutines are always 
called before the READ or WRITE operations are performed. 

Note that the READ and WRITE routines should perform several 
retries (10 is standard) before reporting an error condition to the 
BDOS. If the error condition is returned to the BDOS, it reports the 
error to the user. The HOME subroutine may or may not actually 
perform the track 00 seek, depending upon your controller 
characteristics; the important point is that track 00 has been 
selected for the next operation, and is often treated in exactly the 
same manner as SETTRK with a parameter of 00. 

Table 2-1 outlines the exact responsibilities of each subroutine 
entered through the BIOS jump table. 
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2.2 BIOS Device Characteristics 



Subroutine 
COMMONBASE 



WBOOT 



CONST 



CONIN 



Table 2-1. BIOS Subroutine Summary 

Description 

The COMMONBASE entry point establishes the 
base address of the portion of the XIOS 
that must reside in common memory. The 
COMMONBASE entry point also contains a jump 
vector that enables the XIOS to access user 
and system memory bank switching 
subroutines, the MP/M II dispatcher, the 
XDOS and BDOS, the SYSDAT page, and 
COLDSTART. The effect of a call to 
COMMONBASE is to terminate the calling 
program. Other external procedures 

accessed by COMMONBASE are described in 
Section 2.4. 

The WBOOT subroutine performs an XDOS 
terminate process call, terminating the 
calling process. The subroutine must be 

re-entrant and this entry point must be 
above the COMMONBASE label. 

The CONST subroutine obtains the status of 
the console device specified by register D 
and returns OFFH in register A if a 
character is ready to read, or 00H in 
register A if no console characters are 
ready. This subroutine must be re-entrant 
and this entry point must be above the 
COMMONBASE label. 

The CONIN subroutine reads the next 
character from the console device specified 
by register D into register A, and sets the 
parity bit (high-order bit) to zero. If no 
console character is ready, CONIN waits 
until a character is typed before 
returning. This subroutine must be re- 
entrant and this entry point must be above 
the COMMONBASE label. 
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Subroutine 
CONOUT 



LIST 



PUNCH 



READER 



HOME 



Table 2-1. (continued) 

Description 

The CONOUT subroutine sends the character 
from register C to the console output 
device specified by register D. The 
character is in ASCII, with high-order 
parity bit set to zero. You may want to 
include a delay on a line feed or carriage 
return if your console device requires some 
time interval at the end of the line (such 
as a TI Silent 700 terminal). You can, if 
you wish, filter out control characters 
that cause your console device to react in 
a strange way. For example, a ~Z causes 
the Lear-Seigler terminal to clear the 
screen, and could be filtered out by 
CONOUT. This subroutine must be re-entrant 
and this entry point must be above the 
COMMONBASE label. 

The LIST subroutine sends the character 
from register C to the list output device 
specified by register D. The character is 
in ASCII with zero parity. This subroutine 
must be re-entrant and this entry point 
must be above the COMMONBASE label. 

The punch device is not implemented under 
MP/M II. The transfer vector position is 
preserved to maintain CP/M compatibility. 
Note that MP/M II supports up to 16 
character I/O devices, any of which can be 
a reader/punch. 

The reader device is not implemented under 
MP/M II. See the note above for PUNCH. 

The HOME subroutine returns the disk head 
of the currently-selected disk to the track 
00 position. If your controller allows 
access to the track flag from the drive, 
step the head until the track flag is 
detected. If your controller does not 
support this feature, you can translate the 
HOME call into a call on SETTRK with a 
parameter of 0. 
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Table 2-1. (continued) 

Subroutine Description 

SELDSK The SELDSK subroutine selects the disk 

drive given by register C for further 
operations, where register C contains for 
drive A, 1 for drive B, and so up to 15 for 
drive P. On each disk select, SELDSK must 
return in HL the base address of a 16-byte 
area, called the Disk Parameter Header, 
described in Section 2.3, For standard 
floppy disk drives, the contents of the 
header and associated tables does not 
change, and thus the program segment 
included in the sample XIOS performs this 
operation automatically. If there is an 
attempt to select a non-existent drive, 
SELDSK returns HL=0000H as an error 
indicator. 

On entry to SELDSK, it is possible to 
determine whether it is the first time the 
specified disk has been selected. Register 
E, bit (least significant bit) is a zero 
if the drive has not been previously 
selected. This information is of interest 
in systems that r ead con f ig ur a t i o n 
information from the disk to set up a 
dynamic disk definition table. 

Although SELDSK must return the header 
address on each call, it is advisable to 
postpone the actual physical disk select 
operation until an I/O function (read or 
write) is actually performed. This is 
because disk selects often occur without 
ultimately performing any disk I/O, and 
many controllers unload the head of the 
current disk before selecting the new 
drive. This unloading can cause an 
excessive amount of noise and disk wear. 

The first SELDSK subroutine call that MP/M 
II makes is only for getting the DIRBUF 
address and need not perform any actual 
I/O. 
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Subroutine 
SETTRK 



SETSEC 



SETDMA 



Table 2-1 • (continued) 

Description 

For the SETTRK subroutine, register BC 
contains the track number for subsequent 
disk accesses on the currently selected 
drive. You can choose to seek the selected 
track at this time, or delay the seek until 
the next read or write actually occurs. 
Register BG can take on values in the range 
0-76 corresponding to valid track numbers 
for standard floppy disk drives, and 0- 
65535 for non-standard disk subsystems. 

For the SETSEC subroutine, register BC 
contains the translated sector number for 
subsequent d.isk accesses on the currently 
selected drive (see SECTRAN, below). You 
can choose to send this information to the 
controller at this point, or instead delay 
sector selection until a read or write 
operation occurs. Register BC can take on 
values in the range 1-26 corresponding to 
valid sector numbers for standard floppy 
disk drives, and 0-65535 for non-standard 
disk subsystems. 

For the SETDMA subroutine, register BC 
contains the DMA (disk memory access) 
address for subsequent read or write 
operations. For example, if B = 00H and C 
■ 80H when SETDMA is called, then all 
subsequent read operations read their data 
into 80H through OFFH, and all subsequent 
write operations get their data from 80H 
through OFFH, until the next call to SETDMA 
occurs. The initial DMA address is assumed 
to be 80H (relative to the base of the 
memory segment from which the call was 
made). Note that the controller need not 
actually support direct memory access. If, 
for example, all data is received and sent 
through I/O ports, the XIOS you construct 
can use the 128 byte area starting at the 
selected DMA address for the memory buffer 
during subsequent read or write operations. 

A special case of the SETDMA subroutine 
occurs when the passed parameter in 
register BC contains a OFFFFH. This 
parameter indicates that the blocking 
buffer, if it exists, must be flushed. 
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Table 2-1. (continued) 

Subroutine Description 

Thus, a call to the SETDMA subroutine is 
interpreted as a flush buffer call when a 
parameter of OFFFFH is passed. The BDOS 
function to flush buffers is translated to 
this form of a SETDMA subroutine call. If 
the flush buffer operation performed as a 
result of the OFFFFH parameter is 
successful a simple return should be 
executed. However, if a disk error occurs, 
the current return address should be popped 
from the stack and one of the following 
error codes should be returned in the 
register A: 

1 non-recoverable error 
condition occurred 

2 disk read/only 

Assuming the drive has been selected, the 
track has been set, the sector has been 
set, and the DMA address has been 
specified, the READ subroutine attempts to 
read one sector based upon these 
parameters, and returns the following error 
codes in register A: 

no error occurred 

1 non-recoverable error 
condition occurred 

If the value in register A is 0, then MP/M 
II assumes that the disk operation was 
completed properly. If an error occurs, 
however, the XIOS should attempt at least 
10 retries to see if the error is 
recoverable. When an error is reported, 
the BDOS prints the message "BDOS ERR ON xs 
BAD SECTOR". Then, depending on the error 
mode of the calling process, the calling 
process is terminated or returned an error 
code. 

An additional parameter containing the 
absolute record number for the disk read is 
now passed by MP/M II on entry to the READ 
subroutine. The parameter is three bytes 
in length, with the high-order byte in 
register B and the low-order two bytes in 
register DE. This parameter may be useful 
in blocking/deblocking algorithms. 
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Table 2-1. (continued) 

Subroutine Description 

The BNKXIOS of MP/M II allows portions of 
the XIOS to reside in bank-switched memory 
(non-common). This reduces the common 
memory requirements. The XIOS code for all 
the disk operations including READ and 
WRITE can reside in non-common memory with 
one exception: the code that actually 
performs the transfer of data into the DMA 
address must reside in common memory. Two 
additional entry points within the XIOS, 
name SWTUSER and SWTSYS, enable switching 
between the user's memory bank and the 
system bank containing the BNKXIOS. 
SWTUSER and SWTSYS are described in Section 
2.4. 

If you perform deblocking in your READ and 
WRITE code, you must choose whether to 
place your deblocking buffer in common 
memory and then perform a single move into 
the user's DMA, or to place your deblocking 
buffer in non-common memory. If you choose, 
the latter, you must then perform an extra 
move to first move the sector into common 
memory and then another move into the 
user's DMA. Blocking and deblocking are 
discussed in Section 2.5. 

WRITE The WRITE subroutine writes the data from 

the currently selected DMA address to the 
currently selected drive, track, and 
sector. The data should be marked as "non 
deleted data" to maintain compatibility 
with other CP/M nd MP/M systems. WRITE 
returns the following error codes in 
register A, as shown below: 

no error occurred 

1 non-recoverable error condition 
occurred 

2 disk read/only 

If the value in register A is 0, then MP/M 
II assumes that the disk operation 
completed properly. If an error occurs, 
however, the XIOS should attempt at least 
10 retries to see if the error is 
recoverable. When an error is reported, 
the BDOS prints the message "BDOS ERR ON x: 
BAD SECTOR". Then, depending on the error 
mode of the calling process, the calling 
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Subroutine 



LISTST 



SECTRAN 



Table 2-1. (continued) 

Description 

process is terminated or returned an error 
code. 

On entry to the WRITE subroutine a 
parameter is passed in the C register which 
is intended for use by blocking/deblocking 
algorithms. This parameter is described in 
Section 2.5 on blocking/deblocking. 

An additional parameter containing the 
absolute record number for the disk write 
is now passed by MP/M II on entry to the 
WRITE subroutine. The parameter is three 
bytes in length, with the high-order byte 
in register B and the low-order two bytes 
in register DE. This parameter can be 
useful in blocking/deblocking algorithms. 

See the previous section on disk READ for a 
discussion of placing disk WRITE code in 
bank-switched memory and deblocking in your 
WRITE code. 

The LISTST subroutine returns the ready 
status of the list device specified by 
register D. The value 00 is returned in A 
if the list device is not ready to accept a 
character, and OFFH if a character can be 
sent to the printer. Note that a 00 value 
always suffices. LISTST must be re- 
entrant. This entry point is maintained 
solely for compatibility with CP/M and can 
generally be omitted from the MP/M II XIOS 
as none of the standard utilities use this 
entry point. 

The SECTRAN subroutine performs logical 
sector to physical sector translation and 
can improve the overall response of MP/M 
II. Standard MP/M II systems are shipped 
with a "skew factor" of 6, where six 
physical sectors are skipped between each 
logical read operation. This skew factor 
allows enough time between sectors for most 
programs to load their buffers without 
missing the next sector. 
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Table 2-1. (continued) 

Subroutine Description 

For computer systems that use fast 
processors, memory and disk subsystems, you 
can change the skew factor to improve 
overall response. Note, however, that you 
should maintain a single-density IBM- 
compatible version of MP/M II for 
information transfer into and out of your 
computer system, using a skew factor of 6. 
In general, SECTRAN receives a logical 
sector number in BC and a translate table 
address in DE. SECTRAN uses the sector 
number as an index into the translate 
table, and returns the resulting physical 
sector number in HL. For standard systems, 
the tables and indexing code are provided 
in the XIOS and need not be changed. 

2.3 BIOS Disk Definition Tables 

This section presents the organization and construction of tables 
within the BIOS that define the characteristics of a particular disk 
system used with MP/M II. These tables can be either hand-coded or 
automatically generated using the DISKDEF utility provided with MP/M 
II. The elements of these tables are presented below. 

2.3.1 Disk Parameter Table Format 

In general, each disk drive has an associated (16-byte) Disk 
Parameter Header which both contains information about the disk drive 
and provides a scratchpad area for certain BDOS operations. The 
format of the Disk Parameter Header for each drive is shown below. 

Disk Parameter Header 

XLT 0000 0000 0000 DIRBUF DPB CSV ALV 

16b 16b 16b 16b 16b 16b 16b 16b 

Each element is a word (16-bit) value. The meaning of eah Disk 
Parameter Header (DPH) element is given in Table 2-2. 
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Table 2-2. Disk Parameter Header Elements 

Element Description 

XLT Offset of the logical to physical translation vector, 

if used for this particular drive, or the value 0000H 
if no sector translation takes place (i.e., the 
physical and logical sector numbers are the same). 
Disk drives with identical sector skew factors share 
the same translate tables. 



0000 
DIRBUF 



DPB 



CSV 



Scratchpad values for use within the BDOS (initial 
value is unimportant) . 

Offset of a 128 byte scratchpad area for directory 
operations within BDOS. All DPHs address the same 
scratchpad area. The same DIRBUF is used by all 
drives. 

Offset of a disk parameter block for this drive. 
Drives with identical disk characteristics address the 
same disk parameter block. 

Offset of a scratchpad area used for software check 
for changed disks. This offset is different for each 
DPH. 



ALV 



Offset of a scratchpad area used by the BDOS to keep 
disk storage allocation information. This offset is 
different for each DPH. 



Given n disk drives, the DPHs are arranged in a table whose first row 
of 16 bytes corresponds to drive 0, with the last row corresponding to 
drive n-1. The table thus appears as; 



DPB AS E 

00 XLT 00 

01 XLT 01 



0000 0000 0000 DIRBUF DBP 00 CSV 00 ALV 00 
0000 0000 0000 DIRBUF DBP 01 CSV 01 ALV 01 



n-1 XLTn-1 0000 0000 0000 DIRBUF DBPn-1 CSVn-1 ALVn-1 

where the label DPBASE defines the offset of the DPH table relative to 
the beginning of the operating system. 

A responsibility of the SELDSK subroutine, defined in the 
previous section, is to return the offset of the DPH from the 
beginning of the operating system for the selected drive. The 
following sequence of operations returns the table offset, with a 
0000H returned if the selected drive does not exist. 
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NDISKS 


EQU 


4 ;NUM 


BER OF DISK DRIVES 


SELDSK: 










;SELECT DISK N 


GIVEN BY C 




LXI 


H,0000H 


; READY FOR ERR 




MOV 


A,C 






CPI 


NDISKS 


;N BEYOND MAX DISKS? 




RNC 




; RETURN IF SO 
;0 <= N < NDISKS 




MOV 


L,C 






DAD 


H 


; READY FOR * 16 




DAD 


H 






DAD 


H 






DAD 


H 






LXI. 


D,DPBASE 






DAD 


D 


;DPBASE + N * 16 




RET 







The translation vectors (XLT 00 through XLTn-1) are located elsewhere 
in the BIOS, and simply correspond one-for-one with the logical sector 
numbers zero through the sector count-1. The Disk Parameter Block 
(DPB) for each drive is more complex. A particular DPB, which is 
addressed by one or more DPHs, takes the general form: 



SPT 


BSH BLM EXM 


DSM 


DRM 


ALO AL1 


CKS 


OFF 


16b 


8b 8b 8b 


16b 


16b 


8b 8b 


16b 


16b 



where each is a byte or word value, as shown by the n 8b M or "16b" 
indicator below the field. The fields are defined in Table 2-3. 
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Table 2-3. Disk Parameter Block Fields 

Field Definition 

SPT is the total number of sectors per track. 

BSH is the data allocation block shift factor, 
determined by the data block allocation size. 

BLM is the block mask which is also determined by the 
data block allocation size. 

EXM is the extent mask, determined by the data block 
allocation size and the number of disk blocks. 

DSM determines the total storage capacity of the disk 
drive. 

DRM determines the total number of directory entries 
which can be stored on this drive. 

AL0,AL1 determine reserved directory blocks. 

CKS is the size of the directory check vector, a CKS 
of 8000H marks the drive as permanent with no 
directory records checked. 

OFF is the number of reserved tracks at the beginning 
of the (logical) disk. 

Although these table values are produced automatically by DISKDEF, it 
is worthwhile reviewing the derivation of each field so that the 
values may be cross-checked when necessary. The values of BSH and BLM 
determine (implicitly) the data allocation size BLS, which is not an 
entry in the disk parameter block. Given that you have selected a 
value for BLS, the values of BSH and BLM are shown in Table 2-4 below, 
where all values are in decimal. 

Table 2-4» BSH and BLM Values for Selected BLS 

BLS BSH BLM 



1,024 


3 


7 


2,048 


4 


15 


4,096 


5 


31 


8,192 


6 


63 


16,384 


7 


127 



The value of EXM depends upon both the BLS and whether the DSM value 
is less than 256 or greater than 255, as shown in the following table. 
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Table 2-5. Maximum EXM Values 

BLS DSM < 256 DSM > 255 



N/A 


1 
3 
7 



1,024 





2,048 


1 


4,096 


3 


8,192 


7 


16,384 


15 



The value of DSM is the maximum data block number supported by 
this particular drive, measured in BLS units. The product BLS times 
(DSM+1) is the total number of bytes held by the drive and, of course, 
must be within the capacity of the physical disk, not counting the 
reserved operating system tracks. 

The DRM entry is one Iss than the total number of directory 
entries, which can take on a 16-bit value. The values of ALO and AL1, 
however, are determined by DRM. The two values ALO and AL1 en 
together be considered a string of 16-bits, as shown below. 



ALO 



AL1 



00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 

where position 00 corresponds to the high-order bit of the byte 
labeled ALO, and 15 corresponds to the low-order bit of the byte 
labeled ALL Each bit position reserves a data block for a number of 
directory entries, thus allowing a total of 16 data blocks to be 
assigned for directory entries (bits are assigned starting at 00 and 
filled to the right until position 15). Each directory entry occupies 
32 bytes, as shown in Table 2-6. 



Table 2-6. BLS and Number of Directory Entries 

BLS Directory Entries 



1,024 
2,048 
4,096 
8,192 
16,384 



32 times # bits 

64 times # bits 

128 times # bits 

256 times # bits 

512 times # bits 



Thus, if DRM » 127 (128 directory entries), and BLS = 1024, then there 
are 32 directory entries per block, requiring 4 reserved blocks. In 
this case, the 4 high-order bits of ALO are set, resulting in the 
values ALO » 0F0H and AL1 = 00H. 
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The CKS value is determined as follows: if the disk drive media 
is removable, then CKS ■ (DRM+l)/4, where DRM is the last directory 
entry number. If the media is fixed, then set CKS = 8000H (no 
directory records are checked in this case and drive marked as 
permanent) . 

Finally, the OFF field determines the number of tracks which are 
skipped at the beginning of the physical disk. This value is 
automatically added whenever SETTRK is called, and can be used as a 
mechanism for skipping reserved operating system tracks, or for 
partitioning a large disk into smaller segmented sections. 

To complete the discussion of the DPB, recall that several DPHs 
can address the same DPB if their drive characteristics are identical. 
Further, the DPB can be dynamically changed when a new drive is 
addressed by simply changing the pointer in the DPH since the BDOS 
copies the DPB values to a local area whenever the SELDSK function is 
invoked. 

Returning back to the DPH for a particular drive, note that the 
two address values CSV and ALV remain. Both addresses reference an 
area of uninitialized memory following the BIOS. The areas must be 
unique for each drive, and the size of each area is determined by the 
values in the DPB. 

The size of the area addressed by CSV is CKS bytes, which is 
sufficient to hold the directory check information for this particular 
drive. If CKS = (DRM+D/4, then you must reserve (DRM+D/4 bytes for 
directory check use. If CKS » 0, indicating no checked directory 
entries, or CKS « 8000H, marking the drive as permanent with no 
checked directory entries, then no storage is reserved. 

The size of the area addressed by ALV is determined by the 
maximum number of data blocks allowed for this particular disk, and is 
computed as (DSM/8)+l. 

2*3.2 The DISKDEF Macro Library 

A macro library called DISKDEF greatly simplifies the table 
construction process. You must have access to the MAC macro assembler 
or the RMAC relocatable macro assembler distributed with MP/M II to 
use the DISKDEF facility. The macro library is included with all MP/M 
II distribution disks. 

A BIOS disk definition consists of the following sequence of 
macro statements; 
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MACLIB DISKDEF 



DISKS n 
DISKDEF 0,... 
DISKDEF 1,... 



• • • • 



DISKDEF n-1 

. • • • . 
ENDEF 

where the MACLIB statement loads the DISKDEF. LIB file (on the same 
disk as you BIOS) into MAC'S internal tables. The DISKS macro call 
follows, which specifies the number of drives to be configured with 
your system, where n is an integer in the range 1 to 16. A series of 
DISKDEF macro calls then follow, which define the characteristics of 
each logical disk, through n-1 (corresponding to logical drives A 
through P). Note that the DISKS and DISKDEF macros generate the in- 
line fixed data tables described in the previous section, and thus 
must be placed in a non-executable portion of your BIOS, typically 
directly following the BIOS jump vector. 

The remaining portion of your BIOS is defined following the 
DISKDEF macros, with the ENDEF macro call immediately preceding the 
END statement. The ENDEF (End of Diskdef) macro generates the 
necessary uninitialized RAM areas that are located in memory above 
your BIOS. 

The form of the DISKDEF macro call is 

DISKDEF dn,fsc,lsc,[skf] ,bls,dks,dir,cks,ofs, [kl6] ,[prm] 

where 

dn is the logical disk number, to n-1 

fsc is the first physical sector number (0 or 1) 

Isc is the last sector number 

skf is the option sector skew factor 

bis is the data allocation block size 

dks is the total number of blocks on the drive 

dir is the number of directory entries 

cks is the number of "checked" directory entries 

ofs is the tract offset to logical track 00 

kl6 is an optional 1.4 compatibility flag which 

forces 16K/directory entry 

prm is an optional flag which indicates that the 

drive is permanent (cannot be removed) 

The value dn is the drive number being defined with this DISKDEF macro 
invocation. The fsc parameter accounts for differing sector numbering 
systems, and is usually or 1. The Isc is the last numbered sector 
on a track. When present, the skf parameter defines the sector skew 
factor which is used to create a sector translation table according to 
the skew. If the number of sectors is less than 256, a single-byte 
table is created, otherwise each translation table element occupies 
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two bytes. No translation table is created if the skf parameter is 
omitted (or equal to 0). 

The bis parameter specifies the number of bytes allocated to each 
data block, and takes on the values 1024, 2048, 4096, 8192 or 16384. 
Generally, performance increases with larger data block sizes since 
there are fewer directory references and logically connected data 
records are physically close on the disk. Also, each directory entry 
addresses more data, and the BIOS-resident RAM space is reduced. The 
dks specifies the total disk size in bis units. That is, if the bis = 
2048 and dks = 1000, then the total disk capacity is 2,048,000 bytes. 
If dks is greater than 255, then the block size parameter bis must be 
greater than 1024. The value of dir is the total number of directory 
entries which may exceed 255, is desired. 

The cks parameter determines the number of directory items to 
check on each directory scan and is used internally to detect changed 
disks during system operation. When this situation is detected, MP/M 
II automatically marks the disk read/only, so that data is not 
subsequently destroyed. As stated in the previous section, the value 
of cks equals dir when the media is easily changed, as is the case 
with a floppy disk subsystem. If the disk is permanently mounted, 
then the value of cks is typically and thus the prm parameter should 
be included to indicate that the drive is permanent. 

The ofs value determines the number of tracks to skip when this 
particular drive is addressed, which can be used to reserve additional 
operating system space or to simulate several logical drives on a 
single large-capacity physical drive. 

The k!6 parameter is included when file compatibility is required 
with versions of GP/M 1.4 that have been modified for higher density 
disks. This parameter ensures that only 16K is allocated for each 
directory record, as was the case for previous versions. Normally, 
this parameter is left null. Finally, the prm parameter can be used 
to indicate that the drive is permanent. This parameter should only 
be included if the disk media cannot be removed from the drive. 

For convenience and economy of table space, the special form 

DISKDEF i,j 

gives disk i the same characteristics as the previously defined drive 
j. A standard four-drive single density system, which is compatible 
with CP/M 1.4, is defined using the following macro invocations: 
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DPBASE 


EQU 


DPEO: 


DW 


DPE1: 


DW 


DPE2: 


DW 


DPE3: 


DW 
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DISKS 4 

DISKDEF 0, 1, 26, 6, 1024 , 243 , 64, 64, 2 

DISKDEF 1,0 

DISKDEF 2,0 

DISKDEF 3,0 

• • • 
ENDEF 

with all disks having the same parameter values of 26 sectors per 
track (numbered 1 through 26), with 6 sectors skipped between each 
access, 1024 bytes per data block, 243 data blocks for a total of 243k 
byte disk capacity, 64 checked directory entries, and two operating 
system tracks. 

The DISKS macro generates n Disk Parameter Headers (DPHs) , 
starting at the DPH table address DPBASE generated by the macro. Each 
disk header block contains sixteen bytes, as described above, and 
corresponds one-for-one to each of the defined drives. In the four 
drive standard system, for example, the DISKS macro generates a table 
of the forms 

$ 

XLTO,0000H,0000H,0000H,DIRBUF,DPB0,CSV0,ALV0 

XLTO,0000H,0000H,0000H,DIRBUF,DPB0,CSVl,ALVl 

XLTO,0000H,0000H,0000H,DIRBUF,DPB0,CSV2,ALV2 

XLTO,0000H,0000H,0000H,DIRBUF,DPB0,CSV3,ALV3 

where the DPH labels are included for reference purposes to show the 
beginning table addresses for each drive, through 3. The values 
contained within the disk parameter header are described in detail in 
the previous section. The check and allocation vector addresses are 
generated by the ENDEF macro in the RAM area following the BIOS code 
and tables. 

Note that if the skf (skew factor) parameter is omitted (or equal 
to 0), the translation table is omitted, and a 0000H value is inserted 
in the XLT position of the disk parameter header for the disk. In a 
subsequent call to perform the logical to physical translation, 
SECTRAN receives a translation table address of DE * 0000H, and simply 
returns the original logical sector from BC in the HL register pair. 
A translate table is constructed when the skf parameter is present, 
and the (non-zero) table address is placed into the corresponding 
DPHs. The table shown below, for example, is constructed when the 
standard skew factor skf = 6 is specified in the DISKDEF macro call: 

XLT0: DB 1,7,13,19,25,5,11,17,23,3,9,15,21 
DB 2,8,14,20,26,6,12,18,24,4,10,16,22 

Following the ENDEF macro call, a number of uninitialized data 
area are defined. These data areas need not be a part of the BIOS 
that is loaded upon cold start, but must be available between the BIOS 
and the end of memory. The size of the uninitialized RAM area is 
determined by EQU statements generated by the ENDEF macro. For a 
standard four-drive system, the ENDEF macro might produce: 
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4C72 = BEGDAT EQU $ 
(data areas) 
4DB0 =» ENDDAT EQU $ 
013C = DATSIZ EQU $-BEGDAT 

which indicates that uninitialized RAM begins at location 4C72H, ends 
at 4DB0H-1, and occupies 013CH bytes. You must ensure that these 
addresses are free for use after the system is loaded. 

After modification, you can use the STAT program to check your 
drive characteristics, because STAT uses the disk parameter block to 
decode the drive information. The STAT command form 

STAT d:DSK: 

decodes the disk parameter block for drive d (d=A,...,P) and displays 
the values shown below. 

rs 128 Byte Record Capacity 
ks Kilobyte Drive Capacity 
d; 32 Byte Directory Entries 
cs Checked Directory Entries 
es Records/ Extent 
bs Records/ Block 
s; Sectors/ Track 
ts Reserved Tracks 

Three examples of DISKDEF macro invocations are shown below with 
corresponding STAT parameter values. The last example produces an 8- 
megabyte system. 

DISKDEF 0,1,58, ,2048,256,128,128,2 

r=4096, k=512, d=128, c=128, e=256, b=16, s=58, t=2 

DISKDEF 0,1, 58, ,2048, 1024, 300, 0,2 

r=16384, k=2048, d=300, c=0, e=128, b=16, s=58, t=2 

DISKDEF 0,1, 58,, 16384, 512, 128, 128, 2 

r=65536, k=8192, d=128, c=128, e=1024, b=128, s=58, t=2 

2»4 External Procedure Access 

To help the XIOS access other MP/M entry points, a jump vector is 
dynamically built by the MP/M II GENSYS program and placed at the 
COMMONBASE subroutine entry point. The dynamic portion of the jump 
vector contains five entry points that provide access to user and 
system memory bank switching, the MP/M II dispatcher, the XDOS, and 
the SYSDAT page. Table 2-7 describes external procedure entry points. 
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2.4 External Procedure Access 



The following example illustrates the code used to access 
external procedures: 



JMP 


COLDSTART 


SWTUSER: JMP 


$-$ 


SWTSYS : JMP 


$-$ 


PDISP: JMP 


$-$ 


XDOS s JMP 


'$-$ 


SYSDATs DW 


$-$ 


COLDSTART: 




WBOOT : 




MVI 


C,0 


JMP 


XDOS 



;terminate process 
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2.4 External Procedure Access 



Subroutine 
SWTUSER 



SWTSYS 



PDISP 



XDOS 



SYS DAT 



Table 2-7. External Procedure Summary 

Description 

The SWTUSER entry point restores the bank of 
the user's calling program. There are no 
parameters passed or returned. The purpose of 
SWTUSER is to enable BIOS disk read and write 
code to transfer data from a disk controller 
or buffer in common memory to/from the DMA 
buffer in the user's calling program. This 
procedure must be called only from common 
memory, that is above the COMMONBASE label, 
and it must be used only from BIOS disk 
functions. Internally the SWTUSER procedure 
disables and then re-enables interrupts. 
Thus, if you disable interrupts before calling 
SWTUSER, they will be enabled on returning 
from SWTUSER. 

The SWTSYS entry point restores the bank of 
the BNKBDOS. There are no parameters passed 
or returned. The purpose of SWTSYS is to 
restore the bank containing the banked portion 
of the BDOS following the transfer of data 
from a disk controller or buffer in common 
memory to/from the DMA buffer in the user's 
calling program. This procedure must be 
called only from common memory. Internally 
the SWTSYS procedure disables and then re- 
enables interrupts. Thus, if you disable 
interrupts before calling SWTSYS, they will be 
enabled on returning from SWTSYS. 

The PDISP entry point forces a dispatch call. 
It is intended to be used at the conclusion of 
interrupt handling when a process is to be 
dispatched. It is effectively a null 
procedure call from the point of view of the 
calling program. 

The XDOS entry point provides access to XDOS 
functions. XDOS functions are required for 
flag operations, queue operations and polling 
devices. 

The SYSDAT entry is not a true entry point, 
but the address of the system data page. 
Section 4 provides a definition of the system 
data page. 
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2.5 Blocking and Deblocking Algorithms 

Upon each call to the BIOS WRITE entry point, the BDOS includes 
information that allows effective sector blocking and deblocking where 
the host disk subsystem has a sector size which is a multiple of the 
basic 128-byte unit. This section presents a general-purpose 
algorithm that can be included within your BIOS that uses the BDOS 
information to perform the operations automatically. 

Upon each call to WRITE, the BDOS provides the following 
information in register C: 

» deferred write sector 

1 » non-deferred write sector 

2 = deferred write to the first sector 

of a new data block 

3 = non-deferred write to the first sector 

of a new data block 

Conditions and 2 occur only for permanent drives and allow deferred 
writes. Conditions 1 and 3 occur for non-permanent (removable) drives 
and force immediate (non-deferred) writes. Condition 1 also occurs on 
permanent drives for writes to the directory. 

Condition 2 and 3 occur when a write operation is made to the 
first sector of a new data block. The blocking/deblocking algorithm 
does not perform physical record pre-reads if sequential writes ae 
made to a new data block. In most cases, application programs read or 
write multiple 128-byte sectors in sequence, and thus there is little 
overhead involved in either operation when blocking and deblocking 
records because pre-read operations can be avoided when writing 
records. 

The blocking and deblocking algorithm is listed in Appendix B in 
skeletal form. The file is included on your MP/M II disk. Generally, 
the algorithms map all MP/M II sector read operations onto the host 
disk through an intermediate buffer which is the size of the host disk 
sector. Throughout the program, values and variables which relate to 
the sector involved in a seek operation are prefixed by "sek", while 
those related to the host disk system are prefixed by "hst". The 
equate statements beginning on line 24 define the mapping between MP/M 
II and the host system, and must be changed if other than the sample 
host system is involved. 

The SELDSK entry point clears the host buffer flag whenever a new 
disk is logged-in. Note that although the SELDSK entry point computes 
and returns the Disk Parameter Header address, it does not physically 
select the host disk at this point (it is selected later at READHST or 
WRITEHST). Further, SETTRK, SETSEC, and SETDMA simply store the 
values, but do not take any other action at this point. SECTRAN 
performs a trivial function of returning the physical sector number. 
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The principal entry points are READ and WRITE. These subroutines 
take the place of your previous READ and WRITE operations. 

The actual physical read or write takes place at either WRITEHST 
or READHST, where all values have been prepared: hstdsk is the host 
disk number, hsttrk is the host track number, and hstsec is the host 
sector number (which may require translation to a physical sector 
number). You must insert code at this point which performs the full 
host sector read or write into, or out of, the buffer at hstbuf of 
length hstsiz. All other mapping functions are performed by the 
algorithms. 

2.6 Common Memory Portion of the BNKXIOS 

Take care when selecting which XIOS code is to be placed in 
common memory. This section should give you some helpful guidelines. 

In general, all XIOS and BIOS entries (with the exception of the 
disk I/O entries) must be above the COMMONBASE subroutine entry point. 
Thus, the BNKXIOS enables you to place your disk drivers in a portion 
of code that is not in common memory. There are, however, some 
exceptions that affect both the code and data areas of the disk 
handlers. 

The Disk Parameter Headers and Disk Parameter Blocks must be in 
common memory. 

The DIRBUF data structure, which is referenced by the disk 
parameter blocks, must reside in common memory. 

All disk device polling code and interrupt handlers must reside 
in common memory. 

While it is possible to place a deblocking buffer in non-common 
memory, it requires a sector buffer in common memory and an extra move 
of 128 bytes to move the data first into common memory and then into 
the users DMA buffer. Also, bank switching cannot be permitted while 
a physical DMA from a disk controller to a deblocking buffer in non- 
common memory is in operation. 
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SECTION 3 
MP/M II XI OS 



3.1 MP/M II XIOS Overview 

The Extended Input/Output System (XIOS) must include the hardware 
dependent code that polls devices, handles interrupts and performs 
memory management functions. 

The MP/M II system implementor must prepare subroutines that 
perform the functions described in Table 3-1, then place a jump vector 
containing the XIOS entry points immediately following the BIOS jump 
vector. Most of the XIOS subroutines need to be re-entrant. The XIOS 
jump vector must take the following form: 

SELECT MEMORY 

POLL DEVICE 

START CLOCK 

STOP CLOCK 

EXIT CRITICAL REGION 

MAXIMUM CONSOLE NUMBER 

SYSTEM INITIALIZATION 

IDL PROCEDURE (Optional) 



BIOS+33H 


JMP 


SELM EMORY 


BIOS+36H 


JMP 


POLLDEVICE 


BIOS+39H 


JMP 


STARTCLOCK 


BI0S+3CH 


JMP 


STOPCLOCK 


BIOS+3FH 


JMP 


EXITREGION 


BIOS+42H 


JMP 


MAXCONSOLE 


BIOS+4 5H 


JMP 


SYSTEMINIT 


BIOS+48H 


JMP 


IDLE 



3.2 MP/M XIOS Entry Points 

Each jump address corresponds to a particular subroutine that 
performs the specific function. Table 3-1 outlines the exact 
responsibilities of each XIOS entry point subroutine. 



Subroutine 
SELM EMORY 



Table 3-1. XIOS Subroutine Summary 

Function 

The SELMEMORY subroutine identifies the 
segment of memory where a process is to 
execute. Each time a process is dispatched 
for execution, the operating system makes a 
call to this XIOS select memory procedure. If 
the hardware environment has memory bank 
selection/protection, SELMEMORY can use the 
passed parameter to select/protect areas of 
memory. The passed parameter (in registers 
BC) is a pointer to a memory descriptor from 
which the memory base, size, attributes and 
bank of the executing process can be 
determined. Thus, all other regions of memory 
can be write-protected . 
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Subroutine 



POLLDEVICE 



STARTCLOCK 



Table 3-1. (continued) 

Function 

MP/M II calls SELMEMORY with interrupts 
disabled from within the dispatcher. The 
SELMEMORY subroutine must not enable 
interrupts. This subroutine must reside above 
the COMMONBASE entry point. 

A polled environment can be created by coding 
XIOS device poll handlers. The purpose of 
implementing a polled environment is to avoid 
typical busy-wait code for device operation 
completion. There are also peripheral devices 
that may not operate efficiently under 
interrupts. XDOS calls the device poll handlr 
(POLLDEVICE) with the device to be polled in 
the C register as a single parameter. The 
user-written POLLDEVICE procedure can be coded 
to access the device polling routines via a 
table that contains the addresses of the 
device polling procedures. An association is 
made between a device number to be polled and 
the polling procedure itself. The polling 
procedures must return a value of OFFH in the 
accumulator if the device is ready, or 00H if 
the device is not ready. POLLDEVICE is called 
from a critical region within the dispatcher; 
therefore, the POLLDEVICE subroutine must not 
enable interrupts. This subroutine must 
reside above the COMMONBASE entry point. 

The STARTCLOCK and STOPCLOCK procedures 
eliminate unnecessary overhead for the system 
clock interrupt handler. The system clock 
provides a time base for both the real time 
flag and the system tick procedure. However, 
the system tick procedure is needed only when 
there is a process on the delay list. MP/M II 
calls STARTCLOCK when a process enters the 
delay list to initiate the system tick time 
base (see Section 3.4). 
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Subroutine 



STOPCLOCK 



EXITREGION 



Table 3-1. (continued) 

Function 

In some hardware environments, it is not 
possible to shut off the system time unit 
clock while maintaining the one-second flag 
used for keeping time of day. In this 
situation, the STARTCLOCK procedure simply 
sets a boolean variable to true, indicating 
that there is a delayed process. The clock 
interrupt handler can then determine if system 
time unit flag is to be set by testing the 
boolean. This subroutine must reside above 
the COMMONBASE entry point. 

When the system delay list is emptied, MP/M II 
calls the STOPCLOCK procedure to stop the 
system tick time base. This eliminates 
unnecessary overhead for the system clock 
interrupt handler. 

In some hardware environments, it is not 
possible to shut off the system time unit 
clock while maintaining the one second flag 
used for keeping time of day; that is, a 
single clock/timer interrupt source is used. 
In this situation, the STOPCLOCK procedure 
simply sets a boolean variable to false, 
indicating that there are no delayed 
processes. The clock interrupt handler can 
then determine if the system time unit flag is 
to be set by testing the boolean. This 
subroutine must reside above the COMMONBASE 
entry point. 

MP/M II calls the EXITREGION procedure to test 
a local parameter called the PREEMPT flag. If 
PREEMPT is true, EXITREGION leaves interrupts 
disabled. If PREEMPT is false, EXITREGION 
enables interrupts. Interrupt service 
routines must set the PREEMPT flag true at 
beginning of the interrupt handling. This 
procedure allows an interrupt service routine 
to make a flag set MP/M II system call, 
leaving interrupts disabled until completion 
of the interrupt handling. This subroutine 
must reside above the COMMONBASE entry point. 
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Subroutine 
MAXCONSOLE 



SYSTEM INIT 



C 
DE 



Table 3-1. (continued) 

Function 

The maximum console procedure enables the 
calling program to determine the number of 
physical consoles the BIOS is capable of 
supporting. The number of physical consoles 
is returned in the A register. This 
subroutine must reside above the COMMONBASE 
entry point. 

The system initialization procedure performs 
the required MP/M cold start initialization. 
The following is a typical initialization for 
a banked system: first, MP/M II initializes 
bank 0, disables interrupts and calls 
SYSTEMINIT. Then, SYSTEMINIT sets up 

interrupt jump vectors, interrupt masks, and 
the base page of each bank before returning to 
MP/M II. Finally, MP/M II enables interrupts. 
A typical initialization for a non-banked 
system would perform the same steps, but only 
one bank would be initialized. 

MP/M II disables interrupts and calls the 
SYSTEMINIT entry point prior to any other XIOS 
call. As stated above, MP/M II enables 
interrupts immediately upon return from 
SYSTEMINIT. This subroutine must reside above 
the COMMONBASE entry point. 

In systems with bank switched memory, it is 
necessary to set up the base page (0000H - 
00FFH) within each bank of memory. Both the 
MPMLDR and MP/M itself assume that the base 
bank (bank #0) is switched in when the MPMLDR 
is executed. The base bank is properly 
initialized by MP/M prior to entering 
SYSTEMINIT. The information required for the 
initialization of other banks is provided on 
entry to SYSTEMINIT in the registers defined 
below: 

MP/M debugger restart # 

MP/M entry point address for the debugger. 
Place a jump at the proper debugger restart 
location to the address contained in DE. 
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Table 3-1. (continued) 

Subroutine Function 

HL BIOS direct jump table address. Place a jump 

instruction at location 0000H in each bank's 
base page to the address contained in HL. 

IDLE An IDLE process is the anchor of the process 

ready list. The MP/M II nucleus calls the 
IDLE procedure when there are no other 
processes ready to run. The normal IDLE 
procedure is a call to the dispatcher. This 
most efficiently serves polled devices. If 
your system is entirely interrupt-driven (i.e. 
no polled devices), you can supply your own 
IDLE procedure, which should be as follows: 

IDLE: 

HALT 
RET 

If you do not supply an IDLE procedure, place 
three bytes of zero at the BIOS +48H location. 

3.3 Interrupt Service Routines 

The MP/M II operating system is designed to work with virtually 
any interrupt architecture, be it flat or vectored. The code 
operating at the interrupt level saves the required registers, 
determines the cause of the interrupt, removes the interrupting 
condition, sets an appropriate flag, and then forces a dispatch to 
take place. 

Be sure to use a minimum number of stack levels when saving the 
state of the interrupted process. This is because the interrupted 
application program, especially if it has been written for a CP/M 
environment, is not likely to provide extra stack area as a 
contingency for interrupts. The example Extended Input/Output Systems 
shown in the Appendixes illustrates a technique whereby no additional 
levels of stack are required beyond that of the interrupt restart 
itself. This technique is highly recommended. 

Operation of the flags is described in Section 3 of the MP/M II 
Programmer's Guide, under the discussion of the Flag Set and Flag Wait 
XDOS Functions. Briefly, flags synchronize a process to an 
asynchronous event. In general, an interrupt service routine sets a 
particular flag while another process waits for the flag to be set. 
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At a logical level above the physical interrupts, the flags can 
be regarded as providing 256 levels of virtual interrupts (32 flags 
are supported under MP/M II). Thus, logical interrupt handlers wait 
on flags set by the physical interrupt handlers. This mechanism 
allows a common XDOS to operate on potentially all 8080, 8085 and Z80 
microcomputers, regardless of the hardware environment. 

As an example, consider a hardware environment with a flat 
interrupt structure. That is, a single interrupt level is provided 
and devices must be polled to determine the cause of the interrupt. 
Once the interrupt cause is determined, a specific flag is set 
indicating that that particular interrupt has occurred. 

At the conclusion of the interrupt processing, a jump should be 
made to the MP/M II dispatcher. This is done by jumping to the PDISP 
entry point. This jump gives the processor resource to the highest 
priority ready process, usually the process readied by setting the 
flag in the interrupt handler, and then enables interrupts before 
jumping to resume execution of that process. 

The only XDOS or BDOS call that should be made from an interrupt 
handler is 133: Flag Set. Any other XDOS or BDOS call results in a 
dispatch which would then enable interrupts before the execution of 
the interrupt handler is completed. 

It is recommended that interrupts be used only for asynchronous 
operations such as console input or disk operation complete. In 
general, operations such as console output should not be interrupt- 
driven, because the system has more elasticity when performing polled 
console outputs while idling, rather than incurring the dispatch 
overhead for each character transmitted. This is particularly true at 
higher baud rates. 

If a system requires the execution of a return from interrupt 
(RETI) instruction, the interrupt handler must execute the RETI 
before branching to the dispatcher via the PDISP entry point. 

3.4 Time Base Management 

The XIOS must provide two time bases: a one second flag for real 
time and a system tick for managing the delay list. The one second 
flag operation is logically separate from the system tick operation 
even though it may physically share the same clock/timer interrupt 
source. The one second flag procedure sets flag #2 at each one second 
of real time. MP/M II uses flage #2 to maintain a time of day clock. 

The system tick procedure, when enabled by STARTCLOCK, sets flag 
#1 at system time unit intervals. The recommended time unit is a 
period of 16.67 milliseconds, corresponding to a tick frequency of 60 
Hz. When operating with 50 Hz, use a 20 millisecond period. MP/M II 
uses the system tick to manage the delay list until the delay list is 
empty, at which time the system tick procedure is disabled by 
STOPCLOCK. 
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The system tick frequency is critical because it determines the 
dispatch frequency for compute-bound processes. If the frequency is 
too high, a significant amount of system overhead is incurred by 
excessive dispatches. If the frequency is too low, compute-bound 
processes keep the CPU resource for accordingly longer periods. 
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SECTION 4 
MP/M II SYSTEM FILE COMPONENTS 

The MP/M II system file, MPM.SYS, consists of a number of 
components: the system data page, the customized XIOS, the RESBDOS 
and BNKBDOS, the XDOS and BNKXDOS, the TMP, and the resident system 
processes. MPM.SYS resides in the directory with a user code of and 
usually has the Read Only attribute. The MP/M II loader reads the 
MPM.SYS file into memory to bring up the MP/M II system. 

4.1 System Data 

The system data page contains 256 bytes used by GENSYS to 
dynamically configure the MP/M II system. The system data page can be 
prepared using the GENSYS program or it can be manually prepared using 
DDT or SID. The Table 4-1 describes the byte assignments* 

Table 4-1. System Data Byte Assignments 

Byte Contents 

000-000 Mem$top, top page of memory 

001-001 Nmb$cns, number of system consoles (TMPs) 

002-002 Brkpt$RST, breakpoint RST # 

003-003 Add system call user stacks, boolean 

004-004 Bank switched, boolean 

005-005 Z80 version, boolean 

006-006 banked bdos, boolean 

007-007 XIOS jump table page 

008-008 RESBDOS base page 

009-010 CP/NET master configuration table address 

011-011 XDOS base page 

012-012 RSPs (BNKXIOS top+1) base page 

013-013 BNKXIOS base page 

014-014 BNKBDOS base page 

015-015 Max$mem$seg, max memory segment number 

016-047 Initial memory segment table 

048-063 Breakpoint vector table, filled in by debuggers 

064-079 Reserved for MP/M II 

080-095 System call user stack pointer table 

096-119 Reserved for MP/M II 

120-121 Nmb records in MPM.SYS file 

122-122 # ticks/sec 

123-123 System Drive 

124-124 Common Memory Base Page 

125-125 Number of RSPs 

126-127 Listcp array Address 

128-143 Subflg, submit flag array 
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Table 4-1. (continued) 

Byte Contents 

144-186 Reserved for MP/M II 

187-187 Max locked records/process 

188-188 Max open files/process 

189-190 # list items 

191-192 Pointer to base of lock table free space 

193-193 Total system locked records 

194-194 Total system open files 

195-195 Dayfile logging, boolean 

196-196 Temporary file drive 

197-197 Number of printers 

197-241 Reserved for MP/M II 

242-242 Banked XDOS base page 

243-243 TMP process descriptor base 

244-244 Console.dat base 

245-246 BDOS/XDOS entry point 

247-247 TMP.spr base 

248-248 Nmbrsps, number of banked RSPs 

249-249 Brsp base address 

250-251 Brspl, non-resident rsp process link 

252-253 Sysdatadr, XDOS internal data segment address 

254-255 Rspl, resident system process link 

4.2 Customized XI OS 

The customized XIOS is obtained either from a file named 
RESXIOS.SPR, or a file named BNKXIOS.SPR. The XIOS file of type SPR 
contains the page relocatable version of the user-customized XIOS. 
The standard method for the generation of the XIOS is to use the 
Digital Research LINK program. An alternative method is described in 
Section 1. 

4.3 BDOS 

The Basic Disk Operating System (BDOS) resides in two page- 
relocatable files name the RESBDOS and the BNKBDOS. These two files 
contain the console, list and disk file management code. 

4.3.1 RESBDOS 

The file named RESBDOS. SPR is a page relocatable file containing 
the logical console and list handling, as well as the resident portion 
of the disk file system that provides an interface to the BNKBDOS. 
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4.3.2 BNKBDOS 

The file named BNKBDOS. SPR is a page relocatable file containing 
the non-resident portion of the banked BDOS. 

4. 4 XDOS 

The XDOS file named XDOS. SPR is a page- relocatabl e file 
containing the priority-driven MP/M II nucleus. The nucleus contains 
the following code pieces: root module, dispatcher, queue management, 
flag management, memory management, terminal handler, terminal message 
process, command line interpreter, file name parser, and time base 
management. 

4.5 Resident System Processes 

A file type of RSP identifies a resident system process. The RSP 
files distributed with MP/M II includes run-time system status 
display (MPMSTAT), printer spooler (SPOOL), abort named process 
(ABORT), and a scheduler (SCHED) . At system generation time, GENSYS 
prompts you to select which RSPs to include in the MPM.SYS file. 

It is possible for the user to prepare custom resident system 
processes. The resident system processes must follow these rules: 

• The file must be page-relocatable. Page relocatable files can be 
generated by LINK, or by the submit files MACSPR.SUB or 
ASMSPR.SUB. The output file must be renamed to type RSP. 

• The first two bytes of the resident system process are reserved 
for the address of the BBOS/XDOS. Thus, a resident system 
process can access the BDOS/XDOS by loading the two bytes at 
relative 0000-0001H and then performing a PCHL. 

• The process descriptor for the resident system process must begin 
at the third byte position. 

4.6 Banked Resident System Processes 

A banked resident system process consists of two parts: a 
resident portion and the code for the process. The resident portion 
contains the process descriptor, and queues or other data structures 
that must be in common memory. This portion follows the rules given 
above for resident system processes. The presence of a banked portion 
is specified by setting the process descriptor memory segment index to 
zero rather than OFFH. The name provided in the process descriptor is 
used to obtain the banked portion which has a fil type of BRS. 
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The second part of a banked system process is the actual cod 
piece for the process. The rules for the BRS portion are as follows: 

• The file must be page relocatable. Page relocatable files can b 
generated by LINK, or the procedure outlined in Section 1. Th 
output file must be renamed to type BRS. 

• Bytes 0000-0001H of the banked RSP are reserved for the addres; 
of the resident portion of the RSP. Thus, a banked RSP mus 
access the BDOS/XDOS functions by indirectly loading from the tw< 
bytes at relative 0000-0001H, which point to the base of th< 
resident portion of the RSP, which in turn contain the BDOS/XDO! 
entry point address. 

• Bytes 0002-0003H of the banked RSP must contain the initial stacl 
pointer value for the process. Thus, the stack for the banke< 
RSP is in the banked portion of the RSP, and should b< 
initialized such that the return address on top of the stack it 
the banked RSP entry point address. 

• Bytes 0004-000BH of the banked RSP must contain an ASCII name foi 
the process. This is used for display purposes during GENSYS anc 
MPMLDR execution. 
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SECTION 5 
SYSTEM GENERATION 

5.1 GENSYS Operation 

MP/M II system generation consists of preparing a system data 
file and concatenating both required and optional code files to 
produce a file name MPM.SYS. A GENSYS program reforms these tasks and 
can be run under either MP/M II or CP/M. The GENSYS automates the 
system generation process by prompting the user for optional 
parameters and then prepares the MPM.SYS file. The following sample 
execution illustrates GENSYS operation. 

0A>gensys 

MP/M-80 V2.0 System Generation 
Copyright (C) 1981, Digital Research 

Default entries are shown in (parens) . 

Default base in Hex, precede entry with # for decimal 

Use SYSTEM.DAT for defaults (Y) ? 

Top page of operating system (FF) ? 

Number of TMPs (system consoles) (#2) ? 

Number of Printers (#1) ? 

Breakpoint RST (06) ? 

Add system call user stacks (Y) ? 

Z80 CPU (Y) ? 

Number of ticks/second (#60) ? 

System Disk (Es) ? 

Temporary file drive (E:) ? 

Maximum locked records/process (#16) ? 

Total locked records/system (#32) ? 

Maximum open files/process (#16) ? 

Total open files/system (#32) ? 

Bank switched memory (Y) ? 

Number of user memory segments (#3) ? 

Common memory base page (CO) ? 

Dayfile logging at console (Y) ? 

SYSTEM DAT FF00H 0100H 

TMPD DAT FE00H 0100H 

USERSYS STK FD00H 0100H 

XIOSJMP TBL FC00H 0100H 

Accept new system data page entries (Y) ? 

RESBDOS SPR F000H 0C00H 
XDOS SPR CE00H 2200H 

Select Resident System Processes: 
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5.1 GENSYS Operatic 



SCHED RSP (N) ? 

ABORT RSP (N) ? Y 

SPOOL RSP (N) ? Y 

MPMSTAT RSP (N) ? Y 



ABORT RSP 
SPOOL RSP 
MPMSTAT RSP 

BNKXIOS SPR 
BNKBDOS SPR 
BNKXDOS SPR 
TMP SPR 

SPOOL BRS 
MPMSTAT BRS 

LCKLSTS DAT 
CONSOLE DAT 



CDOOH 0100H 
CCOOH 0100H 
CBOOH 0100H 



B800H 
9500H 
9200H 
8F00H 

8700H 
7900H 

7700H 
7500H 



1300H 
2300H 
0300H 
0300H 

0800H 
0E00H 

0200H 
0200H 



Enter memory segment table: 



00, ff ,0 r 
*** 



Base,size,attrib,bank (7 5, 8b, 8 0,00) 

Base, size, a ttrib, bank (00, CO, 00, 01) 

Base, si ze,attrib, bank (00,C0,00,02) 

Base, size, a ttrib, bank (00, CO, 00, 03) 

*** Memory conflict - segment trimmed 

Base, size, attrib, bank (00,75,00,00) ? 

MP/M II Sys 7500H 8B00h Bank 00 

Memseg Usr 0000H C000H Bank 01 

Memseg Usr 0000H C000H Bank 02 

Memseg Usr 0000H 7500H Bank 00 

Accept new memory segment table entries (Y) ? 

** GENSYS DONE ** 

5.2 System Generation Parameters 

This section discusses the issue involved in answering each oJ 
the GENSYS queries shown in the example above. 

5.2*1 Defaults 

The GENSYS program displays default entry values withir 
parentheses. The base is hex unless a # character precedes the valu< 
to indicate a decimal base. The initial prompt determines if th< 
internal GENSYS defaults are to be used, or those of the most recently 
generated SYSTEM.DAT file. 
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5.2.2 Top Page of Operating System 

Enter two hex ASCII digits to give the top page of the operating 
system. The highest address used by MP/M II is XXFFH, where XX is the 
entry. 

5.2.3 Number of System Consoles 

This entry determines the number of system consoles for which 
Terminal Message Processes (TMP's) are created to generate user 
prompts and send command lines to the Command Line Interpreter (CLI). 
A region of common memory called TMPD.DAT is reserved for the TMP 
process descriptors. Four TMP process descriptors can be placed in 
each page of the TMPD.DAT. Each system console also requires 256 
bytes of memory for stack and buffer areas in a non-resident region of 
memory called CONSOLE.DAT. MP/M II supports up to a maximum of 16 
character I/O console devices, of which 8 can be system consoles and 
have associated TMPs. During MP/M II initialization, an XIOS call 
obtains the actual maximum number of physical consoles supported by 
the XIOS. This number is used if it is less than the number specified 
during the GENSYS. 

5.2.4 Number of Printers 

This entry determines the number of physical printers which the 
XIOS is capable of supporting. This number is used by the MPMSTAT 
program when it displays the status of the system printers. 

5.2.5 Breakpoint RST 

Enter the breakpoint restart number to be used by the MP/M 
debuggers. Recommended restarts are RST #1 to RST #6. 

5.2.6 System Call User Stacks 

If you want to execute CP/M *.COM files, enter yes. An 
affirmative response forces a stack switch to occur when system calls 
are made rom a user program. BDOS calls require more stack space 
under MP/M II than under CP/M. An affirmative response causes GENSYS 
to allocate a region of common memory called USERSYS.STK. The size of 
this region is determined by the number of user memory segments, where 
0-3 segments require lOOh bytes and 4-7 segments require 200h bytes. 

Note that this affects BDOS calls only, not XDOS calls. The XDOS 
is re-entrant and performs no stack switching. Therefore, if your 
program makes any XDOS calls, you need to make certain that you have 
allocated sufficient stack. 
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5.2.7 Z80 CPU 

An affirmative response should only be made if you do have a Z80 
CPU. If specified, the MP/M II dispatcher saves and restores the Z80 
alternate register set. 

5.2.8 Number of Ticks / Second 

This entry value can be used by applications programs to 
determine the number of ticks per second. This value may vary among 
MP/M II systems. 

5.2.9 System Disk 

The drive entered here is used for a second search if the file 
requested to the CLI is not found on the default drive. 

5.2.10 Temporary Pile Drive 

The drive entered here is used as the drive for temporary disk 
files. This entry is used by SUBMIT when it generates the $n$.SUB 
temporary file. This entry can also be accessed in the system data 
page by application programs as the drive on which to create temporary 
files. 

5.2.11 Maximum Locked Records / Process 

This entry specifies the maximum number of records that a single 
process (usually one program) can lock at any given time. This number 
can range from to 255 and must be less than or equal to the total 
locked records for the system. 

5.2.12 Total Locked Records / System 

This entry specifies the total number of locked records for all 
the processes executing under MP/M II at any given time. This number 
can range from to 255 and should be greater than or equal to the 
maximum locked records per process. 

It is possible to allow each process to either use up the total 
system lock record space, or to allow each process to lock only a 
fraction of the system total. The first technique implies a dynamic 
storage region in which one process can force other processes to block 
because it has consumed all available resources. 
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5-2.13 Maximum Open Files / Process 

This entry specifies the maximum number of files that a single 
process (usually one program) can open at any given time. This number 
can range from to 255 and must be less than or equal to the total 
open files for the system. 

5.2.14 Total Open Piles / System 

This entry specifies the total number of open files for all the 
processes executing under MP/M II at any given time. This number can 
range from to 255 and should be greater than or equal to the maximum 
open files per process. 

It is possible either to allow each process to use up the total 
system open file space, or to allow each process to only open a 
fraction of the system total. The first technique implies a dynamic 
storage region in which one process can force other processes to block 
because it has consumed all available resources. 

5.2.15 Bank Switched Memory 

If your system does not have bank-switched memory, then you 

should respond with an W N". Otherwise, respond with a W Y W and 

additional questions and responses (as shown in Section 5.2.2) are 
required. 

5.2.16 Number of User Memory Segments 

The number of user memory segments must be in the range 1 to 7 
and should be greater than or equal to the number of system consoles. 

5.2.17 Common Memory Base Page 

In response to this prompt, enter the address of the lowest page 
of memory common to all banks. GENSYS checks that all modules 
requiring residence in common memory are located above this address. 

5.2.18 Dayfile Logging at Console 

An affirmative response causes the generated MP/M II system to 
display the current time, file name and type, and user number of each 
executed command file. 
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5.2.19 Accept System Data Page Entries 

If the entries made for the first 16 queries are acceptable, then 
enter yes. Otherwise, any or all of the entries made can be changed 
by re-cycling through the GENSYS queries, entering a carriage return 
where values are not to be changed. 

5.2.20 Select Resident System Processes 

GENSYS searches the directory for all files of type RSP. Each 
file found is listed and included in the generated system file if you 
respond with a "Y". Tests are performed to make certain that the 
specified RSPs reside at or above the common base address. 

5.2.21 Memory Segment Table 

Memory segmentation is defined by the entries which are made. 
You are prompted for the base, size, attributes, and bank for each 
memory segment. The GENSYS program only allows you to enter the 
number of segments specified in the response to the query regarding 
the number of user memory segments. 

The first default entry made is for the operating system. This 
becomes the segment zero entry in the memory segment table. It is 
switched in during the baked MP/M II execution of the BNKXIOS, BRS's, 
and the BNKBDOS. The first entry is not counted in your number of 
user memory segments. 

A significant amount of error checking is performed using a 
memory bit map to ensure that no memory segments overlap each other. 
It will be possible to customize the GENSYS program such that non- 
existent memory for a particular hardware configuration is pre- 
allocated in the bit map. 

The order of entries in the memory segment table is also 
critical. The first entry is reserved for the operating system. The 
remaining entries ca be specified by user. In specifying the user 
memory segments, the absolute TPA regions (segments based at 0000H) 
should be specified in order of size, from the largest to the 
smallest. Entering the segments in this order causes the MP/M II 
memory manager to allocate the largest available TPA region for 
execution by a COM program because it linearly searches through the 
memory segment table for the first available segment based at zero. 
The ordering of relocatable segments (those not based at 0000H) is not 
critical because the MP/M II memory manager does a best fit for those 
segments . 

The attribute byte is normally defined as 00. However, if you 
wish to pre-allocate a memory segment, specify a value of FFH. 

The bank byte value is an index which can be used by the XIOS to 
obtain a value to be sent to the bank switching hardware to select the 
specified bank. Values of 0,1,2,... are used to identify the memory 
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Danks. A bank byte value of is used for the non-resident portion of 
flP/M II. 

5.2.22 Accept Memory Segment Table 

A negative response to this query allows memory segment entries 
to be re-edited prior to acceptance. 

5.3 GENSYS Execution 

The GENSYS program has an automatic mode which simplifies 
repetitive generation of MPM.SYS files. This is useful in a debug 
mode of testing, XIOS editing, and a subsequent GENSYS execution to 
produce a new MPM.SYS file. The automatic mode is specified as 
follows: 

0A>GENSYS $A 

The effect of the automatic mode is to simulate the entry of a 
<cr> for each GENSYS query. 
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SECTION 6 
MP/M LOADER 

6.1 MP/M Loader Operation and Display 

The MPMLDR program loads the MPM.SYS file and branches to the 
execution address of the MP/M II operating system, MPMLDR can be run 
under CP/M or loaded from the first two tracks of a disk by the cold 
start loader. 

The MPMLDR displays system loading and configuration. It does 
not require any operator interaction* In the following example, the 
MPM.SYS file prepared by the first GENSYS example shown in Section 5 
is loaded into memory and executed. 

MP/M-II V2.0 Loader 

Copyright (C) 1981, Digital Research 

Nmb of consoles * 2 
Breakpoint RST # -6 
Z80 Alternate register set saved/restored by dispatcher 

Memory Segment Table: 



SYSTEM 


DAT 


FFOOH 


0100H 






TMPD 


DAT 


FEOOH 


0100H 






USERSYS 


STK 


FDOOH 


0100H 






XIOSJMP 


TBL 


FCOOH 


0100H 






RESBDOS 


SPR 


F000H 


0C00H 






XDOS 


SPR 


CEOOH 


2200H 






ABORT 


RSP 


CDOOH 


0100H 






Spool 


RSP 


CCOOH 


0100H 






MPMSTAT 


RSP 


CBOOH 


0100H 






BNKXIOS 


SPR 


B800H 


1300H 






BNKBDOS 


SPR 


9500H 


2300H 






BNKXDOS 


SPR 


9200H 


2300H 






TMP 


SPR 


8F00H 


0300H 






Spool 


BRS 


8700H 


0800H 






Mpmstat 


BRS 


7900H 


0E00H 






LCKLSTS 


DAT 


7700H 


0200H 






CONSOLE 


DAT 


7500H 


0200H 






MP/M II 


Sys 


7500H 


8BH0H 


Bank 





Memseg 


Usr 


0000H 


C000H 


Bank 


1 


Memseg 


Usr 


0000H 


C000H 


Bank 


2 


Memseg 


Usr 


0000H 


7500H 


Bank 






MP/M II V2.0 

Copyright (C) 1981, Digital Research 

0A> 
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6.2 MPMLDR Execution 

Two parameters may be specified to the MPMLDR. The firsi 
parameter is used to cause a break to a CP/M debugger after th< 
loading is completed. The parameter is a $Bn character string placet 
in the default FOB filename field beginning at 005DH. The character i 
is the CP/M debugger restart number. If n is not entered, a default 
of 7 is used. An example of this parameter is shown in Section 1.4. 

The second parameter can specify an alternate filename of loadinc 
other than the standard MPM.SYS file. This parameter is specified b} 
placing a filename with a filetype of SYS in the default FCB beginning 
at 005CH, or, if the $Bn parameter is also being specified, in th< 
second default FCB beginning at 006CH. A good application of this 
second parameter would be to incorporate a menu-driven SYS file 
selection in the LDRBIOS at the SELDSK entry point. Thus, the 
operator would be prompted to select the appropriate SYS file for his 
MP/M environment. Custom code at the SELDSK entry point would prompt 
the operator for a file nanfe and then place the selected SYS file name 
into the default FCB beginning at 005CH. 
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APPENDIX A 
DISK DEFINITION MACRO 

MP/M II V2.0 disk re-definition library 

Copyright (c) 1979, 1980, 1981 

Digital Research 

Box 579 

Pacific Grove, CA 

93950 

MP/M II logical disk drives are defined using the 
macros given below, where the sequence of calls 
is: 

disks n 

diskdef parameter-list-0 

diskdef parameter-list-1 

• • • 

diskdef parameter-listen 

endef 

where n is the number of logical disk drives attached 
to the MP/M II system, and parameter-list-i defines the 
characteristics of the ith drive ( i=0, 1, . . . ,n-l ) 

each parameter-list-i takes the form 

dn,f sc,lsc, [skf] ,bls ,dks,dir ,cks ,ofs , [kl6] ,[prm] 

the disk number, 0,l,.. v ,n-l 

the first sector number (usually or 1) 

the last sector number on a track 

the optional "skew factor" for sector translate 

the data block size (1024, 2048, ... 16384) 

the disk size in bis increments (word) 

the number of directory elements (word) 

the number of directory elements to checksum 

the number of tracks to skip (word) 

an optional which forces 16K/directory entry 

an optional which marks drive as permanent 

for convenience, the form 

dn,dm 
defines disk dn as having the same characteristics as 
a previously defined disk dm. 

a standard four drive MP/M II system is defined by 

disks 4 

diskdef 0,1,26,6,1024,243,64,64,2 

dsk set 

rept 3 
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where 




dn 


is 


f sc 


is 


Isc 


is 


skf 


is 


bis 


is 


dks 


is 


dir 


is 


cks 


is 


ofs 


is 


k!6 


is 


prm 


is 



MP/M II System Guide 



Appendix A Disk Def Macro 



dskhdr 



dpe&dn 



dsk set dsk+1 
diskdef %dsk,0 
endm 
endef 

the value of "begdat" at the end of assembly defines the 
beginning of the uninitialize ram area above the bios, 
while the value of "enddat" defines the next location 
following the end of the data area, the size of this 
area is given by the value of "datsiz" at the end of the 
assembly, note that the allocation vector will be quite 
large if a large disk size is defined with a small block 
size. 

macro dn 

define a single disk header list 

dw xlt&dn;,0000h /translate table 

dw 0000h,0000h /scratch area 

dw dirbuf ,dpb&dn ;dir buff,parm block 

dw csv&dn,alv&dn ;check, alloc vectors 

endm 



disks 

• • 

ndisks 

dpbase 

• p 

dsknxt 
dsknxt 



macro nd 

define nd disks 

set nd //for later reference 

equ $ ;base of disk parameter blocks 

generate the nd elements 

set 

rept nd 

dskhdr %dsknxt 

set dsknxt+1 

endm 

endm 



dpbhdr 
dpb&dn 



macro 

equ 

endm 



dn 
$ 



;disk parm block 



ddb 



ddw 



gcd 



gcdm 
gcdn 
gcdr 



macro data, comment 

define a db statement 

db data comment 

endm 

macro data, comment 

define a dw statement 

dw data comment 

endm 

macro m,n 

greatest common divisor of m,n 

produces value gcdn as result 

(used in sector translate table generation) 



set 
set 
set 



m 
n 




/variable for m 
/variable for n 
/variable for r 
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jcdx 
jcdr 



gcdm 
gcdn 



rept 

set 

set 

if 

exitm 

end if 

set 

set 

endm 

endm 



65535 
gcdm/gcdn 



gcdm 
gcdr 



gcdn 
gcdr 



gcdx*gcdn 




diskdef macro dn,f sc ,lsc,skf ,bls,dks ,dir ,cks ,of s, kl6 
generate the set statements for later tables 
set (cks)/4 
if nul Isc 
current disk dn same as previous fsc 



cksz 



1 1 

dpb&dn 
als&dn 
css&dn 
xlt&dn 

seem ax 

sectors 

als&dn 

als&dn 

css&dn 

9 • 

blkval 
blkshf 
blkmsk 



blkshf 
blkmsk 
blkval 



blkval 
extmsk 



ex tms k 

blkval 



extmsk 



equ 
equ 
equ 
equ 

else 

set 

set 

set 

if 

set 

end if 

set 



dpb&fsc equivalent parameters 
als&fsc ; same allocation vector size 
css&fsc ;same checksum vector size 
xlt&fsc ?same translate table 

Isc- (fsc) ;;sectors 0...secmax 
secmax+1; ;number of sectors 
(dks)/8 ;;size of allocation vector 
( (dks) mod 8) ne 
als&dn+l 



cksz 



;;number of checksum elements 



generate the block shift value 



bls/128 



JO 

16 

blkval=l 



set 

set 

set 

rept 

if 

exitm 

end if 

otherwise, high 

set blksf+1 

set (blkmsk shl 

set blkval/2 

endm 

generate the extent 



;number of sectors/block 
jcounts right O's in blkval 



;fills with l 8 s from right 
;once for each bit position 



order 

1) 



1 not found yet 



or 1 



set 

set 

rept 

if 

exitm 

end if 

otherwise 



bls/1024 





16 

blkval=l 



mask byte 

;;number of kilobytes/block 



;;fill from right with l's 



more to shift 



set 
set 
endm 
may be 

if 
set 



(extmsk shl 
blkval/2 

double byte 
(dks) > 256 
(extmsk shr 



1) or 1 



allocation 



1) 
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extmsk 



dirrem 
dirbks 
dirblk 



dirblk 



dirrem 
dirrem 



xlt&dn 



xlt&dn 



1 1 

nxtsec 
nxtbas 



neltst 



nelts 
xlt&dn 



end if 

may be optional [0] in last position 

if not nul kl6 

set kl6 

end if 

now generate directory reservation bit vector 



set dir 

set bls/32 

set 

rept 16 

if dirrem=0 

exitm 

end if 

not complete, iterate 

shift right and add 1 



# remaining to process 
number of entries per block 
fill with l's on each loop 



set 

if 

set 

else 

set 

end if 

endm 

dpbhdr dn 



(dirblk shr 1) 
dirrem > dirbks 
dirrem-dirbks 



once again 
high order 
or 8000h 



bit 



;;generate equ $ 



ddw 

ddb 

ddb 

ddb 

ddw 

ddw 

ddb 

ddb 

if 

ddw 

else 

ddw 

end if 

ddw 



%sectors, <;sec per track> 
%blkshf ,<;block shift> 
%blkmsk,<; block mask> 
%extmsk,<;extnt mask> 
%(dks)-l,<;disk size-1) 
%(dir) -l,<;directory max> 
%dirblk shr 8,<;alloc0> 
%dirblk and Of fh,<;allocl> 
nul prm 
% (cks) /4,<;check size> 

8000h+cksz,<;permanent disk with check size> 



%ofs ,<;of fset> 



generate the translate 



if 
equ 
else 
if 



nul 


skf 




skf 



= 



equ 

else 

generate the 



table, if requested 
;no xlate table 

;no xlate table 
table 



translate 

set ;;next sector to fill 
set ;;moves by one on overflow 
gcd %sectors,skf 
gcdn * gcd (sectors, skew) 
set sectors/gcdn 

neltst is number of elements to generate 
before we overlap previous elements 
set neltst ;; counter 
equ $ ^translate table 

rept sectors ;;once for each sector 
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if 


sectors < 256 




ddb 


%nxtsec+(fsc) 




else 






ddw 


%nxtsec+(fsc) 




end if 




axtsec 


set 


nxtsec+ (skf) 




if 


nxtsec >= sectors 


nxtsec 


set 
end if 


nxtsec-sectors 


nelts 


set 


nelts-1 




if 


nelts = 


nxtbas 


set 


nxtbas+1 


nxtsec 


set 


nxtbas 


nelts 


set 
end if 
endm 


neltst 




end if 


;;end of nul fac 




end if 


; ;end of nul bis 




endm 




9 

defds 


macro 


lab, space 


lab? 


ds 


space 



test 



Ids macro lb,dn f val 

defds lb&dn,%val&dn 
endm 



endef macro 

;; generate the necessary ram data areas 

begdat equ $ 

128 ;directory access buffer 



ndisks ;;once for each disk 

alv,%dsknxt,als 

csv,%dsknxt,css 

dsknxt+1 



$-begdat 

;force out last byte in hex file 



dirbuf i 


ds 


dsknxt 


set 




rept 




Ids 




Ids 


dsknxt 


set 




endm 


enddat 


equ 


datsiz 


equ 


force : 


db 




endm 
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0800 = 
0200 = 
0014 » 
0004 = 
0050 = 
0003 = 

0002 = 



0000 
0001 
0002 



page 
***************************************************** 



Sector Deblocking Algorithms for MP/M II V2.0 * 

* 



* 

* 
* 
***************************************************** 

utility macro to compute sector mask 
smask macro hblk 

compute log2(hblk), return @x as result 

(2 ** @x » hblk on return) 
@y set hblk 
@x set 
?; count right shifts of @y until = 1 

rept 8 

if §y ■ 1 

exitm 

end if 
;? @y is not 1, shift right one position 
§y set @y shr 1 
@x set @x + 1 

endrn 

endm 



***************************************************** 

* * 

* MP/M to host disk constants * 

* * 

***************************************************** 

MP/M allocation size 
host disk sector size 
host disk sectors/trk 
MP/M sects/host buff 
MP/M sectors/track 
sector mask 
compute sector mask 
log2(hstblk) 



* 

, — „„ — ^«^w..w« «„ >.,.../ to write * 

. * * 

.***************************************************** 

wrall equ ;write to allocated 

wrdir equ 1 /write to directory 

wrual equ 2 ;write to unallocated 

I***************************************************** 



blksiz equ 


2048 


hstsiz equ 


512 


hstspt equ 


20 


hstblk equ 


hstsiz/128 


cpmspt equ 


hstblk * hstspt 


secmsk equ 


hstblk-1 


smask 


hstblk 


secshf equ 


@x 


****************************** 


. * 

• * BDOf 


3 ponsf-ani-s nn pn 
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0000 = 



0000 AF 

0001 326901 
0004 326B01 
0007 C9 



* The BDOS entry points given below show the * 

* code which is relevant to deblocking only. * 

* * 
***************************************************** 



DISKDEF macro, or hand coded tables go here 
dpbase equ $ ;disk param block base 



boot: 
wboot : 



;enter here on system boot to initialize 
xra a ; to accumulator 

sta hstact ;host buffer inactive 

sta unacnt ;clear unalloc count 

ret 



homes 



0008 3A6A01 
000B B7 
000C C21200 
000F 326901 

0012 C9 



homed : 



;home the selected disk 

Ida hstwrt ;check for pending write 

ora a 

jnz homed 

sta hstact ;clear host active flag 

ret 



seldsk 



;select disk 



0013 79 

0014 326001 

0017 6F 

0018 2600 



001A+29 
001B+29 
001C+29 
001D+29 
001E 110000 

0021 19 

0022 C9 



0023 60 

0024 69 

0025 226101 
0028 C9 



mov 


a ,c 


sta 


sekdsk 


mov 


l,a 


ravi 


h,0 


rept 


4 


dad 


h 


endm 




DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


Ixi 


d, dpbase 


dad 


d 


ret 




settrk: 





/selected disk number 
;seek disk number 
;disk number to HL 

i multiply by 16 



;base of parm block 
;hl=.dpb(curdsk) 



;set track given by registers BC 

mov h,b 

mov l,c 

shld sektrk ; track to seek 

ret 



0029 79 
002A 326301 
002D C9 



setsec 



ret 



;set sector given by register c 

mov a,c 

sta seksec jsector to seek 
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002E 60 
002F 69 
0030 227401 
0033 C9 



setdma: 



;set dma address given by BC 

raov h,b 

mo v 1 , c 

shld dmaadr 

ret 



0034 60 

0035 69 

0036 C9 



0037 AF 

0038 326B01 
003B 3C 
003C 327201 
003F 327101 
0042 3E02 
0044 327301 
0047 C3B500 



004A 


AF 


004B 


327201 


004E 


79 


004F 


327301 


0052 


E602 


0054 


CA6E00 


0057 


3E10 


0059 


326B01 


005C 


3A6001 


005F 


326C01 


0062 


2A6101 


0065 


226D01 


0068 


3A6301 


006B 


326F01 



sectrans 

;translate sector number BC 
mov h,b 
mov l,c 
ret 



***************************************************** 

* * 

* The READ entry point takes the place of * 
the previous BIOS definition for READ. 



* the previous BIOS definition for READ. * 

* * 

***************************************************** 
reads 

;read the selected MP/M sector 

xra a 

sta unacnt ;unacnt = 

inr a 

sta readop ;read operation 

sta rsflag ;must read data 

mv i a , wr ua 1 

sta wrtype ;treat as unalloc 

jmp rwoper ?to perform the read 



r 

. * 

. * 



***************************************************** 
* * 

The WRITE entry point takes the place of * 
the previous BIOS definition for WRITE * 
. * * 

.***************************************************** 

wr x x» © « 

;write the selected MP/M sector 

xra a ;0 to accumulator 

sta readop ;not a read operation 

mov a,c ; write type in c 

sta wrtype 

ani wrual ;write unallocated? 

jz chkuna ;check for unalloc 

e 
/ 

; write to unallocated, set parameters 

mvi a,blksiz/128 ;next unalloc recs 

sta unacnt 

Ida sekdsk ;disk to seek 

sta unadsk ;unadsk = setdsk 

lhld sektrk 

shld unatrk ;unatrk = sectrk 

Ida seksec 

sta unasec ;unasec - seksec 
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chkuna: 


006E 3A6B01 




0071 B7 




0072 CAAD00 


• 


0075 3D 


• 
9 


0076 326B01 




0079 3A6001 




007C 216C01 




007F BE 




0080 C2AD00 





0083 216D01 
0086 CD5201 
0089 C2AD00 



008C 3A6301 
008P 216F01 

0092 BE 

0093 C2AD00 



0096 34 

0097 7E 

0098 FE50 
009A DAA600 



009D 3600 
009F 2A6D01 
00A2 23 
00A3 226D01 



00A6 AF 
00A7 327101 
OOAA C3B500 



OOAD AF 
OOAE 326B01 
00B1 3C 
00B2 327101 



;check for write to unallocated sector 

Ida unacnt ;any unalloc remain? 

ora a 

jz alloc ;skip if not 



more unallocated records remain 

dcr a 

sta unacnt 

Ida sekdsk 

Ixi h,unadsk 

cmp m 

jnz alloc 



; unacnt = unacnt-1 

;same disk? 

; sekdsk » unadsk? 
;skip if not 



disks are the same 

lxi h, unatrk 

call sektrkcmp 

jnz alloc 

tracks are the same 

Ida seksec 

lxi h,unasec 

cmp m 

jnz alloc 



;sektrk = unatrk? 
;skip if not 



;same sector? 

;seksec = unasec? 
;skip if not 



match/move to next sector for future ref 

; unasec =-unasec+l 
;end of track? 
; count MP/M sectors 
;skip if no overflow 



mr 


m 


mov 


a,m 


cpi 


cpmspt 


jc 


noovf 



overflow to next track 
mv i m , 



Ihld 


unatrk 


mx 


h 


shld 


unatrk 



noovf: 



; unasec - 
;unatrk = unatrk+1 



;match found, mark as unnecessary read 

xra a ; to accumulator 

sta rsflag ;rsflag = 

jmp rwoper ;to perform the write 



alloc: 



;not an unallocated record, requires pre-read 
xra a ;0 to accum 

sta unacnt ;unacnt = 

inr a ; 1 to accum 

sta rsflag ; rsflag = 1 

***************************************************** 

* * 

* Common code for READ and WRITE follows * 

* * 
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.***************************************************** 
i 



0GB5 AP 
00B6 327001 
0OB9 3A6301 



00BC+B7 
00BD+1F 
00BE+B7 
00BF+1F 
0OC0 326801 



00C3 216901 

00C6 7E 

00C7 3601 

00C9 B7 

OOCA CAF100 



OOCD 3A6001 
00D0 216401 
00D3 BE 
00D4 C2EA00 



00D7 216501 
OODA CD5201 
OODD C2EA00 



OOEA 3A6A01 
OOED B7 
OOEE C45E01 



00F1 3A6001 
00F4 326401 
00F7 2A6101 
OOFA 226501 
OOFD 3A6801 
0100 326701 
0103 3A7101 



r wo per: 




;enter 


here to 


xra 


a 


sta 


erflag 


Ida 


seksec 


rept 


secshf 


ora 


a 


rar 




endm 




ORA 


A 


RAR 




ORA 


A 


RAR 




sta 


sekhst 



00E0 


3A6801 . 


1 


00E3 


216701 




00E6 


BE 




00E7 


CA0E01 





active host sector? 
Ixi h,hstact 
mov a,m 
mvi m,l 
ora a 

jz filhst 



;zero to accura 

;no errors (yet) 

; compute host sector 

;carry = 



CARRY = 

SHIFT RIGHT 

CARRY = 

SHIFT RIGHT 

host sector to seek 



;host active flag 

; always becomes 1 
;was it already? 
;fill host if not 



host buffer active, same as seek buffer? 

Ida sekdsk 

Ixi h, hstdsk ?same disk? 

cmp m ;sekdsk » hstdsk? 

jnz nomatch 

same disk, same track? 

Ixi h, hsttrk 

call sektrkcmp ;sektrk = hsttrk? 

jnz nomatch 

same disk, same track, same buffer? 

Ida sekhst 

Ixi h, hstsec ;sekhst = hstsec? 

cmp m 

jz match ;skip if match 

nomatch: 

iproper disk, but not correct sector 

Ida hstwrt ;host written? 

ora a 

cnz writehst ;clear host buff 

r 

filhst: 

;may have to fill the host buffer 

Ida sekdsk 

sta hstdsk 
Ihld sektrk 

shld hsttrk 

Ida sekhst 

sta hstsec 

Ida rsflag ;need to read? 
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0106 B7 

0107 C45F01 
010A AF 
010B 326A01 



010E 3A6301 

0111 E603 

0113 6F 

0114 2600 



0116+29 
0117+29 
0118+29 
0119+29 
011A+29 
011B+29 
011C+29 

011D 117601 

0120 19 

0121 EB 

0122 2A7401 
0125 0E80 
0127 3A7201 
012A B7 
012B C23401 



012E 3E01 
0130 326A01 
0133 EB 



0134 1A 

0135 13 

0136 77 

0137 23 

0138 OD 

0139 C23401 



013C 3A7301 
013F E601 

0141 3A7001 
0144 C8 



0145 B7 

0146 CO 

0147 AF 



match 



ora 
cnz 
xra 
sta 



;copy d 

Ida 

ani 

mov 

mvi 

rept 

dad 

endm 

DAD 

DAD 

DAD 

DAD 

DAD 

DAD 

DAD 

hi has 

ixi 

dad 

xchg 

Ihld 

mvi 

Ida 

ora 

jnz 



readhst 

a 

hstwrt 



;yes, if 1 

;0 to accum 

;no pending write 



ata to or from buffer 



;mask buffer number 
;least signif bits 
;ready to shift 
? double count 
;shift to left 7 



seksec 

secmsk 

l,a 

h,0 

7 

h 

H 
H 
H 
H 
H 
H 
H 
relative host buffer address 
d,hstbuf 
d ;hl = host address 

;now in DE 
dmaadr ;get/put MP/M data 

c,128 ?length of move 

readop ;which way? 

a 
rwmove ;skip if read 



rwmove: 



write operation, mark and switch direction 

mvi a,l 

sta hstwrt ;hstwrt ■ 1 

xchg ;source/dest swap 

;C initially 128, DE is source, HL is dest 

;source character 

;to dest 

;loop 128 times 



Idax 

inx 

mov 

inx 

dcr 

jnz 



d 

d 

m,a 

h 

c 

rwmove 



data has been moved to/from host buffer 



Ida 
ani 
Ida 
rz 



wrtype 

wrdir 

erflag 



; write type 
;to directory? 
;in case of errors 
?no further processing 



clear host buffer for directory write 

ora a ;errors? 
rnz ; skip if so 

xra a ; to accum 
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1148 326A01 
I14B CD5E01 
)14E 3A7001 
)151 C9 



3152 EB 

3153 216101 

3156 1A 

3157 BE 

0158 CO 

0159 13 
015A 23 
01 5B 1A 
0115C BE 
015D C9 



sta 
call 
Ida 
ret 



hstwrt 

writehst 

erflag 



/buffer written 



***************************************************** 

* * 

* Utility subroutine for 16-bit compare * 

* * 
***************************************************** 

sektrkcmp: 

;HL = .unatrk or .hsttrk, compare with sektrk 

xchg 

lxi h, sektrk 

ldax d ;low byte compare 

cmp m ;same? 

rnz ; return if not 
; low bytes equal, test high Is 

inx d 

inx h 

ldax d 

cmp m ;sets flags 
ret 



015E C9 



o ***************************************************** 

„ * * 

t 

s* WRITEHST performs the physical write to * 

;* the host disk, READHST reads the physical * 

j CI 1 SK a 

.* * 

f 

.***************************************************** 

f 

writehst: 

jhstdsk = host disk #, hsttrk = host track #, 
;hstsec = host sect #. write "hstsiz" bytes 
?from hstbuf and return error flag in erflag. 
; return erflag non-zero if error 
ret 



015F C9 



0160 

0161 
0163 



readhst; 

?hstdsk » host disk #, hsttrk * host track #, 
?hstsec » host sect #. read "hstsiz" bytes 
?into hstbuf and return error flag in erflag. 
ret 

.***************************************************** 
.* * 



Unitialized RAM data areas 



.***************************************************** 



sekdsk: ds 1 
sektrk: ds 2 
seksec: ds 1 



;seek disk number 
;seek track number 
?seek sector number 



0164 



hstdsk: ds 



;host disk number 
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0165 
0167 

0168 
0169 
016A 

016B 
016C 
016D 
016F 

0170 
0171 
0172 
0173 
0174 
0176 



hsttrk: ds 

hstsec: ds 

sekhst: ds 

hstact: ds 

hstwrt: ds 

• 

unacnt: ds 

unadsk: ds 

unatrk: ds 

unasec: ds 



erflag 
rsflag 
readop 
wrtype 
dmaadr 
hstbuf 



ds 
ds 
ds 
ds 
ds 
ds 



2 

1 

1 
1 
1 

1 
1 
2 
1 

1 
1 
1 
1 
2 
hstsiz 



;host track number 
;host sector number 

;seek shr secshf 
;host active flag 
;host written flag 

;unalloc rec cnt 
;last unalloc disk 
;last unalloc track 
;last unalloc sector 

error reporting 
read sector flag 
1 if read operation 
write operation type 
last dma address 
host buffer 



0376 



.****************************************************+ 
• * * 

;* The ENDEF macro invocation goes here * 

. * * 

.it**************************************************** 

end 



00 AD 


ALLOC 


0800 


BLKSIZ 


0000 


BOOT 


006E 


CHKUNA 


0050 


CPMSPT 


0174 


DMAADR 


0000 


DPBASE 


0170 


ERFLAG 


00F1 


FILHST 


0008 


HOME 


0012 


HOMED 


0169 


HSTACT 


0004 


HSTBLK 


0176 


HSTBUF 


0164 


HSTDSK 


0167 


HSTSEC 


0200 


HSTSIZ 


0014 


HSTSPT 


0165 


HSTTRK 


016A 


HSTWRT 


010E 


MATCH 


00EA 


NOMATCH 


00A6 


NOOVF 


0037 


READ 


015F 


READHST 


0172 


READOP 


0171 


RSFLAG 


0134 


RWMOVE 


00B5 


RWOPER 


000 3 


SECMSK 


0002 


SECSHF 


0034 


SECTRAN 


0160 


SEKDSK 


0168 


SEKHST 


0163 


SEKSEC 


0161 


SEKTRK 


0152 


SEKTRKCMP 


0013 


SELDSK 


002E 


SETDMA 


0029 


SETSEC 


0023 


SETTRK 


016B 


UNACNT 


016C 


UNADSK 


016F 


UNASEC 


016D 


UNATRK 


0000 


WBOOT 


0000 


WRALL 


0001 


WRDIR 


004A 


WRITE 


015E 


WRITEHST 


0173 


WRTYPE 


0002 


WRUAL 
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page 

title 'Skeleton MP/M-80 V2.0 Ldrbios' 



0000 = 
FFFF = 



Copyright (C) 1978, 1979, 1980, 1981 
Digital Research 
Box 579, Pacific Grove 
California, 93950 



false equ 
true equ 



not false 



1700 



org 



1700h 



0080 » 


buff 


equ 


0080h ; default buffer address 




? 


jump 


vector for individual routines 


1700 C33317 




jmp 


boot 




1703 C33317 


wboote 


:jmp 


wboot 




1706 C33617 




jmp 


const 




1709 C33417 




jmp 


conin 




170C C33517 




jmp 


conout 




170F C33917 




jmp 


list 




1712 C33817 




jmp 


punch 




1715 C33717 




jmp 


reader 




1718 C33C17 




jmp 


home 




171B C33B17 




jmp 


seldsk 




171E C33D17 




jmp 


settrk 




1721 C33E17 




jmp 


setsec 




1724 C33F17 




jmp 


setdma 




1727 C34117 




jmp 


read 




172A C34217 




jmp 


write 




172D C33A17 




jmp 


list$st 


; list status poll 


1730 C34017 


boots 

wboot; 

gocpms 


jmp 


sect$tran 


; sector translation 


1733 C9 




ret 








crtin: 




; crts 


input 


1734 C9 




ret 








crtout 




; crt: 


output 


1735 C9 




ret 
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1736 C9 

1737 C9 

1738 C9 

1739 C9 
173A C9 

1734 = 

1736 = 

1735 » 

1737 - 

1738 - 

1739 = 
173A = 

173B C9 

173C C9 

173D C9 

173E C9 

173F C9 

1740 C9 

1741 C9 

1742 C9 
1743 



crtst: 



ttyin: 
ttyout: 
lptout: 
lpt$st: 



ret 



ret 



ret 



ret 



ret 



; crt: status 

; tty: input 

; tty: output 

; lpt: output 



conin 


equ 


crtin 


const 


equ 


crtst 


conout 


equ 


crtout 


reader 


equ 


ttyin 


punch 


equ 


ttyout 


list 


equ 


lptout 


listst 


equ 


Iptst 



seldsk: 



ret 



; select disk given by register c 



home; ;move to home position 
ret 



settrk: ;set track number given by c 
ret 

setsec: ;set sector number given by c 
ret 

setdma: ;set dma address given by regs b,c 
ret 



sect$tran: 
ret 



; translate the sector # in <c reg> 



read: ;read next disk record (assuming disk/trk/sec/ selected 
ret 

write: ;disk write function 
ret 

end 
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page 

title »MP/M II V2c0 DSC-2 Basic & Extended I/O 

cseg 

maclib diskdef 



bios for micro-2 computer 



0000 = 


false 


equ 







FFFF = 


true 


equ 


not false 




FFFF = 


r 

debug 


equ 


true 




FFFF as 


Idcmd 


equ 


true 




FFFF a 


MHz4 


equ 
if 


true 
MHz4 




0086 « 


dlycnst equ 


086h 








else 








dlycnst equ 


C54h 








end if 








/ 
i 


org 


0000b 






?pdisp 


equ 


$-3 






;xdos 


equ 


pdisp-3 








jump vector for individual subroutines 




? 


jmp 


coldstart 


? coldstart 


0000 C34900 


wboots 


jmp 


commonbase 




0003 C35A00 




jmp 


warmstart 


;warm start 


0006 C35F00 




Jn»P 


const 


? console status 


0009 C36800 




jmp 


conin 


;console character in 


000C C37100 




jmp 


conout 


/console character out 


000F C3DF00 




jmp 


list 


?list character out 


0012 C38100 




jmp 


rtnempty 


; punch not implemented 


0015 C38100 




jmp 


rtnempty 


; reader not implemented 


0018 C3CA02 




jmp 


home 


;move head to home 


001B C3DB02 




jmp 


seldsk 


;select disk 


001E C30503 




jmp 


settrk 


;set track number 


0021 C32203 




jmp 


setsec 


;set sector number 


0024 C33A03 




jmp 


setdma 


;set dma address 


0027 C34003 




jmp 


read 


;read disk 


002A C34503 




jmp 


write 


;write disk 


002D C30101 




jmp 


pollpt 


;list status 


0030 C32803 




jmp 


sect ran 


; sector translate 
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0033 
0036 
0039 
003C 
003F 
0042 
0045 
0048 



0049 
004C 
004F 
0052 
0055 
0058 



C30C02 
C3F301 
C30D02 
C31302 
C31802 
C31F02 
C32202 
00 



C35A00 
C30000 
C30000 
C30000 
C30000 
0000 



005A 0E00 
005C C35500 



jmp 

jmp 

jmp 

jmp 

jmp 

jmp 

jmp 

db 

jmp 

commonbase ; 
jmp 
swtuser:jmp 
swtsys: jump 
pdisp: jmp 
xdos : jmp 
sysdat: dw 

coldstartj 
warmstart? 
mvi 
jmp 



I/O handlers 



selmemory 

polldevice 

startclock 

stopclop 

exitregion 

maxconsole 

systeminit 



idle 



coldstart 

$-$ 
$-$ 
$-$ 
$-$ 
$-$ 



select memory 

poll device 

start clock 

stop clock 

exit region 

maximum console number 

system initialization 

force use of internal 

idle procedure 



c,0 
xdos 



system reset , terminal 



MP/M II V2.0 Console Bios 



0003 » 


nmbcns 


equ 


3 


0083 - 


poll 


equ 


131 


0086 = 


makeque 


equ 


134 


0089 = 


readque 


equ 


137 


008B = 


writeque equ 


139 


008D = 


xdelay 


equ 


141 


0090 « 


create 


equ 


144 


0000 » 


pllpt 


equ 





0001 = 


plcoO 


equ 


1 


0002 = 


plco2 


equ 


2 


0003 = 


plco3 


equ 


3 


0004 = 


plcoi3 


equ 


4 






if 


debug 


0005 « 


plciO 

• 
const: 


equ 

endif 


5 


005F CD7A00 




call 


ptbljmp 


0062 8E00 




dw 


ptOst 


0064 0901 




dw 


pt2st 


0066 C301 




dw 


pt3st 



number of consoles 

XDOS poll function 

XDOS make queue function 

XDOS read queue function 

XDOS write queue function 

XDOS delay function 

XDOS create process function 

poll printer 

poll console out #0 

poll console out #1 

poll console out #2 (Port 3) 

poll console in #2 (Port 3) 

poll console in #0 



Console Status 
compute and jump to hndlr 
console #0 status routine 
console #1 (Port 2) status reg 
Console #2 (Port 3) status reg 
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conm: 






0068 CD7A00 




call 


ptbljmp 


006B 9D00 




dw 


ptOin 


006D 9901 




dw 


pt2in 


006F CB01 


conout; 


dw 


pt3in 


007A CD7A00 




call 


pt±>ljmp 


0074 C200 




dw 


ptOout 


0076 A701 




dw 


pt2out 


0078 D701 




dw 


pt3out 



ptbljmp: 



007A 7A 




mov 


a,d 


007B FE03 




cpi 


nmbc 


007D DA8300 




jc 


tbl: 


0080 Fl 




Pop 


psw 




rtnemptys 




0081 AF 




xra 


a 


0082 C9 


tbljmp; 


ret 




0083 87 




add 


a 


0084 El 




Pop 


h 


0085 5F 




mov 


e,a 


0086 1600 




mvi 


d,0 


0088 19 




dad 


d 


0089 5E 




mov 


e,m 


008A 23 




inx 


h 


008B 56 




mov 


d,m 


008C EB 




xchg 




008D E9 




pchl 





Console Input 
compute and jump to hndlr 
console #0 input 
console #1 (Port 2) input 
console #2 (Port 3) input 

Console Output 

compute and jump to hndlr 

console #0 output 

console #1 (Port 2) output 

console #2 (Port 3) output 



? compute and jump to handlr 

; d = console # 

; do not destroy d I 

; throw away table address 



; compute and jump to handler 

; a * table index 

? double table index for adr offset 

; return adr points to jump tbl 



add table index * 2 to tbl base 
get handler address 



jump to computed ens handler 



; ASCII Character Equates 



005F = 


aline 


equ 


5fh 


007F = 


rubout 


equ 


7fh 


0020 = 


space 


equ 


20h 


0008 = 


backsp 


equ 


8h 


005F = 


altrub 


equ 


uline 




7 

; Input / Output Port h 


0040 = 


dataO 


equ 


40h 


0041 « 


stsO 


equ 


data0+l 


0041 =■ 


cdO 


equ 


stsO 


0048 = 


datal 


equ 


48h 


0049 = 


stsl 


equ 


data 1+1 


0049 = 


cdl 


equ 


stsl 


0050 = 


data2 


equ 


50h 


0051 « 


sts2 


equ 


data2+l 
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0051 = 


Cd2 


equ 


sts2 


0058 = 


data3 


equ 


58h 


0059 • 


sts3 


equ 


data3+l 


0059 = 


cd3 


equ 


sts3 




; Poll 


Console 


#0 Input 






if 


debug 




polciOs 








ptOst: 










if 


Idcmd 


008E 3AAF00 




Ida 


ptOcntr 


0091 B7 




ora 


a 


0092 3E00 




mvi 


a,0 


0094 CO 




rnz 
endif 




0095 BD41 




in 


stsO 


0097 E602 




ani 


2 


0099 C8 




rz 




009A 3EFF 




mvi 


a,0ffh 


009C C9 


o 

1 

ptOin: 


ret 








if 


Idcmd 


009D 21AF00 




Ixi 


h , ptOcntr 


00A0 73 




mov 


a,m 


0QA1 B7 




ora 


a 


00A2 CAB600 




jz 


IdcmdOempty 


0OA5 35 




dcr 


m 


00A6 2AB000 




Ihld 


ptOptr 


00A9 7E 




mov 


a,m 


OOAA 23 




inx 


h 


OOAB 22B000 




shld 


ptOptr 


OOAE C9 




ret 






ptOcntr 


' • 




OOAF 04 


ptOptr : 


db 


ldcmOempty-pt Oldcmd 


OOBO B200 




dw 


ptOldcmd 




ptOldord : 




00B2 746F6420 




db 


•tod • 




ldcmO empty: 








endif 




00B6 0E83 




mvi 


c f poll 


00B8 1E05 




mvi 


e f plciO 


OOBA CD5500 




call 


xdos 


OOBD DB40 




in 


dataO 


OOBF E67F 




ani 


7fh 


00C1 C9 




ret 





Sample XIOS Source 



else 



ptOst 



return Offh if ready, 
OOOh if not 
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Ida 

ora 

rz 

mvi 

ret 



cOinmsgcnt 
a 

a f 0ffh 



Console #0 Input 



cOinpd; 



dw 


c2inpt 


; pl 




db 





; status 




db 


32 


; priority 




dw 


cOinstk+18 ; stkptr 




db 


'cOin 


1 ; name 




db 





; console 




db 


Offh 


; memseg 




ds 


36 






cOinstks 

dw 


0c7c7h 


p 0c7c7h,0c7c7h 




dw 


0c7c7h 


r 0c7c7h r 0c7c7h 




dw 


0c7c7h 


r 0c7c7h,0c7c7h 




dw 


cOinp 


; starting address 




cOinq? 








dw 





; ql 




db 


'cOinque ' ; name 




dw 


1 


; msglen 




dw 


4 


; nmbmsgs 




ds 


3 






cOinmsgcnt s 








ds 


2 


; msgcnt 




ds 


4 


; buffer 




cOinqcb: 








dw 


cOinq 


; pointer 




dw 


chOin 


? msgadr 




chOins 








db 









cOinuqcb: 








dw 


cOinq 


; pointer 




dw 


charOin; msgadr 




charOin: 








db 









cOinps 








mvi 


c ,makeque 




Ixi 


d,cOinq 




call 


xdos 


; make the cOinq 




cOinloop: 








mvi 


c,flag 


wait 




mvi 


e,6 






call 


xdos 


; wait for cO in intr 


flag 
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mvi c,writeque 

lxi d,cOinqcb 

call xdos ; write cO in queue 

jmp cOinloop 



ptOin; 



mvi 

lxi 

call 

Ida 

ani 

ret 

endif 



; return character in reg A 
c,readque 
d,c0inuqcb 

xdos ; read from cO in queue 

charOin ; get character 
7fh ? strip parity bit 



OODE 00 



00DF 3ADE00 
00E2 B7 



? Console #0 Output 
ptOout : 



Reg C * character to output 



00C2 DB41 




in 


stsO 


00C4 E601 




ani 


Olh 


00C6 C2D200 




jnz 


txOrdy 


00C9 C5 




push 


b 


OOCA 0E83 




mvi 


c,poll 


OOCC 1E01 




mvi 


e,plco< 


OOCE CD5500 




call 


xdos 


00D1 CI 


txOrdy: 


Pop 


b 


00D2 79 




mov 


a,c 


00D3 D340 




out 


dataO 


0OD5 C9 




ret 






; poll console #0 outpi 




polcoO: 






00D6 DB41 




in 


stsO 


00D8 E601 




ani 


Olh 


OODA C8 




rz 




OODB 3EFF 




mvi 


a,0ffh 


OODD C9 




ret 





poll console #0 output 



Line Printer Driver: TI 810 Serial Printer 

TTY Model 40 



initf lag : 
db 



list: 
ptlout: 



; printer initialization flag 
; List Output 



; Reg c = Character to print 
Ida initf lag 
ora a 
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00E3 C2ED00 




jnz 


ptlxx 




00E6 3E27 




mvi 


a,27h 




00E8 D349 




out 


49h 


; TTY Model 4( 


OOEA 32DE00 


ptlxx: 


sta 


initflag 




OOED DB49 




in 


stsl 




OOEF E601 




ani 


Olh 




00F1 C2FD00 




jnz 


txlrdy 




00F4 C5 




push 


b 




00F5 0E83 




mvi 


C/poll 




00F7 1E00 




mvi 


e,pllpt 




00F9 CD5500 




call 


xdos 


? poll printei 


OOFC CI 


txlrdy: 


POP 


b 




OOFD 79 




mov 


a,c 


; char to reg: 


OOFE D348 




out 


datal 




0100 C9 




ret 








', Poll 


Printer 


Output 






pollpt 




• 


return Offh if ready 
OOOh if not 


0101 DB49 




in 


stsl 




0103 E601 




ani 


Olh 




0105 C8 




rz 






0106 3EFF 




mvi 


a,0f£h 




0108 C9 




ret 







Poll Console #1 (Port 2) Input 







; return Offh if ready, 






; OOOh if not 


0109 3A6F01 


Ida 


c2inmsgcnt 


010C B7 


ora 


a 


010D C8 


rz 




010E 3EFF 


mvi 


a, Offh 


0110 C9 


ret 





; Console #1 (Port 2) Input 
c2inpd : 



0111 0000 


dw 


; pl 


0113 00 


db 


; status 


0114 22 


db 


34 j priority 


0115 5701 


dw 


c2instk+18 ; stkptr 


0117 6332696E20 


db 


'c2in • ; name 


011F 02 


db 


2 ; console 


0120 FF 


db 


Offh i memseg 


0121 


ds 


36 


c2instk 


* 




0145 C7C7C7C7C7 


dw 


0c7c7h , 0c7c7h , 0c7c7h 


014B C7C7C7C7C7 


dw 


0c7c7h , 0c7c7h , 0c7c7h 
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0151 C7C7C7C7C7 dw 


0c7c7h,0< 


:7c7h,0c7c 


:7h 


0157 7F01 


dw 
c2inq: 


c2inp ; 


starting 


address 


0159 0000 


dw 





ql 




015B 6332696E71 db 


1 c2inque 


1 ; name 




0163 0100 


dw 


1 


msglen 




0165 0400 


dw 


4 


nmbmsgs 




0167 


ds 
c2inmsgcnt: 


8 






016F 


ds • 


2 


msgcnt 




0171 


ds 
c2inqcb: 


4 


buffer 




0175 5901 


dw 


c2inq ; 


pointer 




0177 7901 


dw 


ch2in ; msgadr 






ch2in; 








0179 00 


db 
c2inuqcb? 









017A 5901 


dw 


c2inq ; 


pointer 




017C 7E01 


dw 
char2in. 


char2in; 


msgadr 




017E 00 


db 
c2inps 









017F 0E86 


mvi 


c ,makequ< 


a 




0181 115901 


Ixi 


d r c2inq 






0184 CD5500 


call 
c2inloops 


xdos ? 


make the 


c2inq 


0187 0E84 


mvi 


c,flagwa: 


it 




0189 1E08 


mvi 


e,8 






018B CD55.00 


call 


xdos ; 


wait for 


c2 in intr flag 


018E 0E8B 


mvi 


c,writeque 




0190 117501 


Ixi 


d ,c2inqcb 




0193 CD5500 


call 


xdos ; 


write c2in queue 


0196 C38701 


jmp 


c2inloop 







pt2in: 



return character in reg A 



0199 0E89 


mvi 


c,readque 




019B 117A01 


Ixi 


d ,c2inuqcb 




019E CD5500 


call 


xdos 


; read from c2 in queue 


01A1 3A7E01 


Ida 


char2in 


; get character 


01A4 E67F 


ani 


7fh 


; strip parity bit 


01A6 C9 


ret 







01A7 DB51 
01A9 E601 



; Console #1 (Port 2) Output 
pt2out: 



in 
ani 



sts2 
Olh 



Reg C = character to output 
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01AB C2B701 




jnz 


tx2rdy 


01AE C5 




push b 




01AF 0E83 




mvi 


c,poll 


01B1 1E02 




mvi 


e,plco2 


01B3 CD5500 




call 


xdos ; poll console #1 outpu 


01B6 CI 


tx2rdy; 


pop 


b 


01B7 79 




mov 


a,c 


01B8 D350 




out 


data2 


01BA C9 




ret 






; poll console #1 output 




polco2s 






01BB DB51 




in 


sts2 


OIBD E601 




ani 


Olh 


OIBF C8 




rz 




01C0 3EFF 




mvi 


a,0ffh 


01C2 C9 




ret 






; Poll 


Console #2 (Port 3) Input 




polci3s 








pt3stj 




; return Offh if ready, 
; OOOh if not 


01C3 DB59 




in 


sts3 


01C5 E602 




ani 


2 


01C7 C8 




rz 




01C8 3EFF 




mvi 


a, Offh 


OICA C9 




ret 





; Console #2 (Port 3) Input 



pt3in % 



} return character in reg A 



01CB 0E83 


mvi 


c,poll 




01CD 1E04 


mvi 


e f plci3 




01CF CD5500 


call 


xdos 


; poll console #0 input 


01D2 DB58 


in 


data3 


; read character 


01D4 E67F 


ani 


7fh 


; strip parity bit 


01D6 C9 


ret 







? Console #2 (Port 3) Output 



pt3out i 



; Reg C = character to output 



01D7 DB59 


in 


sts3 


01D9 E601 


ani 


Olh 


01DB C2E701 


jnz 


tx3rdy 


01DE C5 


push 


b 


01DF 0E83 


mvi 


c,poll 


01E1 1E03 


mvi 


e,plco3 


01E3 CD5500 


call 


xdos 


01E6 CI 


pop 
tx3rdy: 


b 


01E7 79 


mov 


a f c 


01E8 D358 


out 


data3 



; poll console #2 (Port) 



; transmit character 
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01EA C9 



ret 
Poll Console #2 (Port 3) Output 
polco3 : 







; return Offh if ready, 






; OOOh if not 


01EB DB59 


in 


sts3 


01ED E601 


ani 


Olh 


01EF C8 


rz 




01F0 3EFF 


mvi 


a , Offh 


01F2 C9 


ret 





01F3 79 
01F4 FE06 
01F6 D&FB01 
01F9 3E06 



01FB CD8300 



01FE 0101 
0200 D600 
0202 BB01 
0204 EB01 
0206 C301 

0208 8E00 

0006 = 
020A 8100 



MP/M II V2.0 Xios 



polldevice: 



mov 

cpi 

jc 

mvi 



devok: 



devtbls 

dw 
dw 
dw 
dw 
dw 
if 
dw 
endif 

rmbdev equ 
dw 



Reg C = device # to be polled 
return Offh if ready, 
OOOh if not 
a,c 
nmbdev 
devok 

a, nmbdev; if dev # >= nmbdev, 
• set to nmbdev 



call tbljmp ;jump to dev poll code 



pollpt 

polcoO 

polco2 

polco3 

polci3 

debug 

polciO 



poll 
poll 
poll 
poll 
poll 



printer 
console 
console 
console 
console 



output 
#0 output 
#1 output 
#2 output 
#2 input 



poll console #0 input 



($-devtbl)/2 ; number of devices to 
rtnempty; bad device handler 



020C C9 



; Select / Protect Memory 

J 

selmemory: 

Reg BC = adr of mem descript 
BC -> base 1 byte, 
size 1 byte, 
attrib 1 byte, 
bank 1 byte, 
this hardware does not have memory protection or 
; bank switching 
ret 

; Start Clock 
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startclock: 


• 
9 


020D 3EFF 
020F 322F04 
0212 C9 


mvi 
sta 
ret 

; Stop Clock 


« 

a,0ffh 
tickn 




stopclock: 


• 


0213 AF 

0214 322F04 
0217 C9 


xra 
sta 
ret 

i Exit Region 


a 
tickn 




l 
exitregions 


o 


0218 3A3104 
021B B7 
021C CO 
021D FB 
021E C9 


• 
t 

Ida preemp 
ora a 
rnz 
ei 
ret 
; Maximum Console Number 


021F 3E03 
0221 C9 


maxconsoles 
mvi 

ret 


a,nmbcns 




j System Initialization 




systeminits 





will cause flag #1 to be set 
at each system time unit tick 



will stop flag #1 setting at 
system time unit tick 



EI if not preempted or in disable 
interrupt if preempted 



This is the place to insert code to initialize 
the time of day clock, if it is desired on each 
booting of the system. 



0222 3EC3 


mvi 


a,0c3h 


0224 323800 


sta 


0038h 


0227 214702 


Ixi 


h,inthnd 


022A 223900 


shld 


0039h 


022D 0E90 


mvi 


c ,create 




if 


debug 


022F 111101 


Ixi 
else 


d,c2inpd 




Ixi 


d ,c0inpd 




endif 




0232 CD5500 


call 


xdos 


0235 3A3004 Ida 


intmsk 



JMP INTHND at 0038H 
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0238 D360 




out 60h 




; init interrupt mask 


023A ED56 

023C FB 
023D CDCA02 
0240 0E84 
0242 1E05 
0244 C35500 


/ 


db 

ei 

call 

mvi 

mvi 

jmp 


0edh,056h 

home 

c, flagwait 

e,5 

xdos 


; Interrupt Mode 1 

; ** Z80 Instruction * 

; clear first disk int 
; & return 




• 

; Idle 

* 


procedure 






; idles 

• 


ret 






- ■ 


i 


-or- 










ei 

hit 

ret 




; for full interrupt system 




; MP/M 


II V2.0 


Interrupt 


Handlers 


0084 = 

0085 = 
008E - 


flagwait equ 
flagset equ 
dsptchq equ 


132 
133 
142 





inthnd: 



Interrupt handler entry point 
All interrupts gen a RST 7 
Location 0038H contains a jmp 
to INTHND. 



0247 222904 


shld 


svdhl 


024A El 


pop 


h 


024B 222D04 


shld 


svdret 


024E F5 


push 


psw 


024F 210000 


Ixi 


h,0 


0252 39 


dad 


sp 


0253 222B04 


shld 


svdsp 


0256 312904 


lxi 


sp,lstintstk 


0259 D5 


push 


d 


025A C5 


push 


b 


025B 3EFF 


mvi 


a,0ffh 


025D 323104 


sta 


preemp ; 


0260 DB60 


in 


60h 


0262 E640 


ani 


01000000b 


0264 C28F02 


jnz 


clk60hz 


0267 DB80 


in 


stat 



save users stk ptr 
lcl stk for intr hnd 



; set preempted flag 

; read interrupt mask 

; test & jump if elk idle 



; read disk status port 
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0269 E608 
026B C27802 



am 
jnz 

if 

in 

ani 

jnz 

endif 



08h 
diskintr 

not debug 
stsO 
2 
conOin 



026E DB51 


in 


sts2 


0270 E602 


ani 


2 


0272 C28002 


jnz 


con2in 


0275 C3B502 


t • o e 

• 

jmp 
diskintr; 


intdone 


0278 AF 


xra 


a 


0279 D380 


out 


cmdl 


027B 1E05 


mvi 


e,5 


027D C38702 


jmp 


conann 




if 


not debug 




conOins 






in 


dataO 




sta 


chOin 




mvi 


e,6 




jmp 


concmn 




endif 






con2ins 




0280 DB50 


in 


data2 


0282 327901 


sta 


ch2in 


0285 1E08 


mvi 


e,8 




1 jmp 


concmn 




concmns 




0287 0E85 


mvi 


c, flag set 


0289 CD5500 


call 


xdos 


028C C3B502 


jmp 
clk6Qhz; 


intdone 


028F 3A2F04 


Ida 


tickn 


0292 B7 


ora 


a 


0293 GA9D02 


jz 


notickn 


0296 0E85 


mvi 


c,flagset 


0298 1E01 


mvi 


e,l 


029A CD5500 


call 
notickn : 


xdos 


029D 210004 


Ixi 


h,cnt60 


02A0 35 


dcr 


m 


02A1 C2AD02 


jnz 


notlsec 



; test/handle other interrupt 



; reset disk interrupt 
; set flag #5 



; set flag #6 



; set flag #8 



; 60 Hz clock interrupt 

; test tickn, indicate 
; delayed process (es) 



; set flag #1 each tick 



; dec 60 tick cntr 
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02A4 363C 


mvi 


m,60 


02A6 0E85 


mvi 


c, flag set 


02A8 1E02 


mvi 


e,2 


02AA CD5500 


call 
notlsec : 


xdos 


02AD AF 


xra 


a 


02AE D360 


out 


60h 


02B0 3A3004 


Ida 


intmsk 


02B3 D360 


out 


60h 




jmp 


intdone 



02C7 C35200 



0080 = 

0080 » 

0081 = 

0082 = 

0083 = 



set flag #2 @ 1 sec 



; ack clock interrupt 



Other Interrupt handlers 





intdone : 




02B5 AF 


xra 


a 


02B6 323104 


sta 


preempt 


02B9 CI 


pop 


b 


02BA Dl 


Pop 


d 


02BB 2A2B04 


Ihld 


svdsp 


02BE F9 


sphl 




02BF Fl 


POP 


psw 


02C0 2A2D04 


Ihldd 


svdret 


02C3 E5 


push 


h 


02C4 SA2904 


Ihld 


svdhl 



clear preempted flag 



restore stk ptr 



The following dispatch call will force round robin 
scheduling of processes executing at the same prior 
each l/60th of a second. 

Notes Interrupts are not enabled until the dispatcher 
resumes the next process. This prevents interrupt 
over-run of the stacks when stuck or high frequency 
interrupts are encountered. 

jmp pdisp ; MP/M dispatch 



Disk I/O Drivers 
Disk Port Equates 

cmdl equ 80h 

stat equ 8 Oh 

haddr equ 81h 

laddr equ 82h 

cmd2 equ 83h 



home: ;move to the track oO position of current drive 

02CA CDA03 call headload 

; h f l point to word with track for selected disk 

homel: 

02CD 3600 mvi m,00 ;set current track ptr back to 

02CF DB80 in stat ;read fdc status 

02D1 E604 ani 4 ;test track bit 

02D3 C8 rz ; return if at 
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02D4 37 
02D5 CDC203 
02D8 C3CD02 



02EB 210000 
02DE 79 
02DF FE02 
02E1 DO 

02E2 AF 
02E3 323A04 
02E6 79 
02E7 E607 
02E9 323904 
02EC 4F 

02ED 3AX04 
02F0 E6F0 
02F2 Bl 
02F3 F608 
02F5 323C04 

02F8 69 
02F9 29 
02FA 29 
02FB 29 
02FC 29 
02FD 113F04 

0300 19 

0301 226E04 
0304 C9 



stc ; direct ion=out 

call step ;step one track 
jmp homel ; loop 

r 

seldsk: 

; drive number in c 

lxi h f ;0000 in hi produces select error 

mov a,c ;a is disk number ... ndisks 

cpi ndisks ;less than ndisks? 

rnc ; return with HL » 0000 if not 

;make sure dummy is (for use in double add to h,l) 

xra a 

sta dummy 

mov a,c 

ani 07h ;get only disk select bits 

sta diskno 

mov c , a 
;set up the second command port 

Ida port 

fdear out old disk select bit 
?put in new disk select bits 
force double density 



ani 
ora 
ori 
sta 



Of Oh 
c 

08h 
port 



proper disk number, return dpb element address 



mov 

dad 

dad 

dad 

dad 

lxi 

dad 

shld 

ret 



l r c 

h 

h 

h 

h 



;*2 

;*4 

;*8 

;*16 
d,dpbase 
d ;HL=.dpb 
tran ; translate table base 



0305 CDDA03 



0308 79 

0309 BE 
030A C8 

030B CDC203 

030E 79 
030F BE 

0310 C20B03 



0313 3E14 



settrk: ;set track given by register c 

call headload 
;h,l reference correct track indicator according to 
/selected disk 

; desired track 



settkx ; 



mov 
cmp 
rz 

call 



a,c 
m 



step 



;we are already on the track 



a,c 

m 



;are we where we want to be 



settkx ;not yet 



;step track-carry has direction 
;step will update trk indicator 

mov 

cmp 

jnz 

?have stepped enough 
seekrt : 
;need 10 msec delay for final step time and head settle 

mvi a,20d 
; call delay 
; ret ;end of settrk routine 
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delay: 


/delay 


for c[A] X .5 milliseconds 


0315 C5 


delay 1: 


push 


b 


0316 0E86 


delay 2: 


mvi 


c,dlycnst /constant adjusted to .5 ms 


0318 0D 




dcr 


c 


0319 C21803 




jnz 


delay2 


031C 3D 




dcr 


a 


031D C21603 




jnz 


delayl 


0320 CI 




pop 


b 


0321 C9 




ret 


/end of delay routine 




setsec: 


;set sector given by register c 


0322 0C 




inr 


c 


0323 79 




mov 


a,c 


0324 323604 




sta 


sector 


0327 C9 




ret 






sectran 










/sector 


■ number in c 






/translate logical to physical sector 


0328 2A6E04 




Ihld 


tran ;hl=. .translate 


032B 5E 




mov 


e,m /E=low(. translate) 


032C 23 




inx 


h 


032D 56 




mov 


d ,m ; DE-. translate 


032E 7B 




mov 


a , e ; zero? 


032F B2 




ora 


d ;00 or 00 = 00 


0330 2600 




mvi 


h,0 


0332 69 




mov 


l,c ;HL = untranslated sector 


0333 C8 




rz 


/skip if so 


0334 EB 




xchg 




0335 42 




mov 


b,d /BC=00ss 


0336 09 




dad 


b /HL=. translate (sector) 


0337 6E 




mov 


l>m 


0338 62 




mov 


h,d /HL=translate( sector) 


0339 C9 




ret 






i 

setdma: 


;set dma address given by registers b and c 


033A 69 




mov 


l,c /low order address 


033B 60 




mov 


h,b /high order address 


033C 223704 




shld 


dmaad /save the address 


033F C9 




ret 





0340 0640 
0342 C34703 



0345 0680 



read: /perform read operation. 

/this is similar to write, so set up read 
/ command and use common code in write 
mvi b,040h /set read flag 

jmp waitio /to perform the actual I/O 

7 

write: /perform a write operation 

mvi b f 080h /set write command 
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0347 3E0A 
0349 323B04 



034C C5 
034D CDDA03 

0350 CI 

0351 4E 



0354 B9 

0355 EA5C03 

0358 3E10 
035A BO 
035B 47 



035C 2A3704 
035F C5 

0360 2B 

0361 5E 



waitio: 
enter here from read and write to perform the actual 
I/O operation, return a OOh in register a if the 
operation completes properly, and Olh if an error 
occurs during the read or write 

in this case, the disk number save in 'diskno' 

the track number in 'track* 
the sector number in 'sector' 
the dma address in 'dmaad' 
;b still has r/w flag 
mvi a,10d ;set error count 
sta errors ; retry some failures 10 times 
; before giving up 
tryagns 

push b 
call headload 
;h,l point to track byte for selected disk 
pop b 
mov c,m 
; decide whether to allow disk write precompensation 
mvi a,39d ? inhibit precomp on trks 0-39 
cmp c 
jc alio wit 
; inhibit precomp 

mvi a,10h 
ora b 
mov b,a 



allowit; 



Ihld 
push 
dcx 

mov 



dmaad 
b 

h 

e»m 



?goes out on the same port 
; as read/write 

;get buffer address 
;b has r/w code c has track 
;save and replace 3 bytes belo 
;buf with trk,sectr,adr mark 



; figure correct address mark 



0362 3A3C04 
0365 E608 
0367 3EFB 
0369 CA6E03 
036C E60F 



036E 77 

036F 2B 

0370 56 

0371 3A3604 



0374 77 



Ida port 

ani 08h 

mvi a,0fbh 

jz sin 

ani Ofh 



sin: 

mov m,a 

?f ill in sector 

dcx h 
mov d r m 
Ida sector 



mov m ,a 

;fill in track 



was double 

Obh is double density 

Ofbh is single density 



;note that invalid sector number 
;will result in head unloaded 
;error, so dont check 
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0375 


2B 


0376 CI 


0377 


79 


0378 


4E 


0379 


77 


037A 


7C 


037B D381 


037D 


7D 


037E D382 


0380 


78 


0381 D380 


0383 C5 


0384 


D5 


0385 E5 


0386 


0E84 


0388 


1E05 


038A CD5500 


038D El 


038E 


Dl 


038F CI 


0390 


71 


0391 


23 


0392 


72 


0393 


23 


0394 


73 


0395 


DB80 


0397 E6F0 


0399 C8 


039A F5 


039B 


213B04 


039E 


35 


039F C2A603 


03A2 


Fl 


03A3 


3E01 


03A5 C9 


03A6 Fl 


03A7 


E6E0 


03A9 C24C03 


03AC 


C5 


03AD 


113204 


03B0 


2A3904 



rwwait: 



dcx 


h 




pop 


b 




mov 


a,c 




mov 


c r m 




mov 


m,a 




mov 


a f h 


;set up fdc dma address 


out 


haddr 


;high byte 


mov 


a,l 




out 


laddr 


;low byte 


mov 


a,b 


;get r/w flag 


out 


cmdl 


; start disk read/write 


push 


b 




push 


d 




push 


h 




mvi 


c,flagwait 


ravi 


e,5 




call 


xdos 


; wait for disk ii 


pop 


h 




pop 


d 




pop 


b 




mov 


m,c 


; restore 3 bytes below bu; 


inx 


h 




mov 


m,d 




inx 


h 




mov 


m f e 




in 


stat 


j test for errors 


ani 


Of Oh 




rz 




;a will be if no errors 



; error from disk 

push psw ;save error condition 
; check for 10 errors 

Ixi . h, errors 

dcr m 

jnz redo ;not ten yet, do a retry 
;we have too many errors, print out hex number for last 
; received error type, cptn will print perm error message 

pop psw ;get code 
;set error return for operating system 

mvi a,l 

ret 
redo: 
;b still has read/write flag 

pop psw ;get error code 

ani OeOh ; retry if not track error 

jnz tryagn ; 
;was a track error so need to reseek 

push b ;save read/write indicator 
; figure out the desired track 

Ixi d, track 

lhld diskno ; selected disk 
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03B3 19 


dad 


d 


;point to correct trk indicator 


03B4 7E 


mov 


a,m 


; desired track 


03B5 F5 


push 


psw 


;save it 


03B6 CDCA02 


call 


home 




03B9 Fl 


pop 


psw 




03BA 4F 


mov 


c r a 




03BB CD0503 


call 


settrk 




03BE CI 


Pop 


b 


;get read/write indicator 


03BF C34C03 


jmp 


tryagn 





0X2 DAD503 
0X5 34 
03C6 3E04 

03C8 F602 
03CA D380 
OXC E6FD 
OXE D380 



03D0 3E10 
03DS C31503 



steps ;step head out towards zero 

?if carry is set; else 
;step in 

; h,l point to correct track indicator word 
jc outx 

; increment current track byte 
;set direction = in 



dostep : 



mr 


m 


mvi 


a, 041 


ori 


2 


out 


cmdl 


ani 


Ofdh 


out 


cmdl 



; pulse step bit 



;turn off pulse 
l the fdc-2 had a stepp ready line, the fdc-3 relies on 
; software time out 

mvi a,16d ; delay 8 ms 

jmp delay 
; ret 



outx: 



03D5 35 
03D6 AF 
03D7 CX803 



03DA 213D04 
03DD 46 
03DE 2B 
03DF 7E 
03EO 23 
03E1 77 

03E2 F610 



dcr 


m 


xra 


a 


jmp 


dostep 



; update track byte 



headload i 

^select and load the head on the correct drive 

Ixi h,prtout ;old sleet info 

mov b,m 

dcx h ;new select info 

mov a,m 

inx h 

mov m,a 



on 



lOh 



; enable interrupt 



03E4 D383 out cmd2 ;select the drive 

03E6 E6EF ani Oefh 

;set up h,l to point to track byte for selected disk 

03E8 113204 Ixi d, track 

03EB 2A3904 lhld diskno 

03EE 19 dad d 

;now check for needing a 35 ms delay 

;if we have changed drives or if the head is unloaded 

;we need to wait 35 ms for head settle 
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03EF B8 
03F0 C2F803 



03F3 DB80 
03P5 E680 
0EF7 C8 

03F8 AF 
03F9 D380 
03FB 3E46 
03FD C31503 



cmp b ;are we on the same drive 

jnz needdly 
;we are on the same drive 
;is the head loaded? 

in stat 

ani 80h 

rz ; already loaded 

needdly: 

xra a 

out cmdl ;load the head 

mvi a,70d 

jmp delay 
: ret 



; BIOS Data Segment 



0400 3C cnt60: db 

intstk: 
C7C7C7C7C7 dw 

C7C7C7C7C7 dw 

C7C7C7C7C7 dw 

C7C7C7C7C7 dw 

Istintstk: 



0401 
040B 
0415 
041F 

0429 
042B 
042D 
042F 



0000 
0000 
0000 
00 



0430 44 



0431 00 



0432 
0433 
0434 
0435 
0436 
0437 
0439 
043A 
043B 
043C 
043D 
043E 



00 

00 

00 

00 

00 

0000 

00 

00 

00 

00 

00 

00 



043F+=* 

043F+00000000 

0443+00000000 

0447+70045F04 

044B+1005F004 



svdhl s dw 
svdsp : dw 
svdret: dw 
tickn: db 

if 
intmsk: db 

else 
intmsk: db 

endif 
preempjdb 



scrat: 

track 

trakl 

trak2 

trak3 



db 
db 
db 
db 



sector: db 

dmaad: dw 

diskno: db 

dummy: db 

errors: db 

port: db 

prtout; db 

dnsty: db 

7 

disks 
DPBASE EQU 



DPE0: 



DW 

CW 
DW 

EW 



60 ? 60 tick cntr = 1 sec 

? local intrpt stk 
0c7c7h , 0c7c7h , 0c7c7h , 0c7c7h , 0c7c7h 
0c7c7h , 0c7c7h , 0c7c7h , 0c7c7h , 0c7c7h 
0c7c7h , 0c7c7h , 0c7c7h , 0c7c7h , 0c7c7h 
0c7c7h , 0c7c7h , 0c7c7h , 0c7c7h , 0c7c7h 











debug 

44h 

54h 
















2 

$ 



; saved Regs HL during int hnd 

; saved SP during int hndl 

; saved return during int hndl 

? ticking boolean, true = delay 

; intrpt msk, enables elk intrpt 

; intrpt msk, enables elk intrpt 

; preempted boolean 

; start of scratch area 

; current trk on drive 

: current trk on drive 1 



currently selected sctr 
current dma address 
current disk number 
must be for dbl add 



;BASE OF DISK PARAMETER BLOCKS 



XLT0,0000H 
0OOOH f 0OOOH 
DIRBUF,DPB0 
CSV0,ALV0 



TRANSLATE TABLE 
SCRATCH AREA 
DIR BUFF,PARM BLOCK 
CHECK, ALLOC VECTORS 
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044F+00000000 
0453+00000000 
0457+70045F04 
045B+50053005 
0800 » 
0010 - 
00FF = 

045F+= 

045F+3A00 

0461+04 

0462+OF 

0463+00 

0464+FF00 

0466+7F00 

0468+CO 

0469+00 

046A+2000 

046C+0200 

0000+= 

045F+= 
0020+= 
0020+= 
0000+= 

046E 



DPEl! 



bpb 
rpb 
maxb 

DPBO 



DPB1 
ALS1 
CSS1 
XLT1 

? 

tran; 



DW 

DW 

DW 

DW 

equ 

equ 

equ 

diskdef 

EQU 

DW 

CB 

DB 

CB 

DW 

DW 

DB 

DB 

DW 

DW 

EQU 

diskdef 

EQU 

EQU 

EQU 

EQU 

ds 



XLT1,0000H /TRANSLATE TABLE 

OO00H f 0O00H ;SCRATCH AREA 

DIRBUF,DPB1 ;DIR BUFF,PARM BLOCK 

CSV1,ALV1 ;CHECK f ALLOC VECTORS 

2*1024 ; bytes per block 

bpb/128 ; records per block 

255 ;max block number 

0,l,58,,bpb,maxb+l, 128,128, 2,0 

$ ;DISK PARM BLOCK 

58 ;SEC PER TRACK 

4 ?BL0CK SHIFT 

15 ; BLOCK MASK 

;EXTNT MASK 

255 ;DISK SIZE-1 

127 ;DIRECTORY MAX 

192 ;ALLOC0 

;ALL0C1 

32 ;CHECK SIZE 

2 ; OFFSET 

;NO )OATE TABLE 

1,0 

DPBO ? EQUIVALENT PARAMETERS 

AISO ;SANE ALLOCATION VECTOR SIZE 

CSSO ;SAME CHECKSUM VECTOR SIZE 

XLTO ?SAME TRANSLATE TABLE 



0470+= 

0470+ 

ALVO; 

0510+ 

0530+ 

0550+ 

0570+= 

0100+= 

0570+00 

0571 00 

0572 



endef 
BEGDAT EQU 
DIRBUFs DS 
ALVOs DS 
CSVOs DS 
ALVls DS 
CSVls DS 
ENDDAT EQU 
DATSIZ EQU 
FORCES DB 



end 



$ 

128 ; DIRECTORY ACCESS BUFFER 

32 

32 

32 

32 

$ 

$-BEGDAT 

;FORCE OUT LAST BYTE IN HEX FI 

; force out last byte in hex fi 
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page 

TITLE 'XIOS200, Copyright 1980, DIGITAL RESEARCH 



DIGITAL RESEARCH 

P.O. BOX 579, 801 LIGHTHOUSE AVENUE 

PACIFIC GROVE, CALIFORNIA 93950 

Copyright 1980, DIGITAL RESEARCH 

This program is a copyright program product of 
DIGITAL RESEARCH and is distributed to the 
owners of DXNABYTE computers for use as an 
example only. Any other use of this software 
constitutes a breach of the copyright license 
to the purchaser. However, permission is 
granted to use this listing as a sample for the 
construction of the reader's own XIOS. 

VERSICN NUMBER; 1.12* 
VERSICN DATE: June 28, 1980 

Add support for CP/M version 1.0 

Add support for Hard disk drives 

Add support for disk MODE selection 

Provide compatability MODE for 1.4 operation 

Remove CTC/1791 counter reset 

CORRECT HARD DISK SEEK PROBLEM 

Add code to recover from WD1791 going to sleep 

Initialize parallel port for Centronics printer 
VERSICN DATEs March 17, 1981 

Virtual disk in banks 1,2,3: M DISK I; 
VERSICN DATE: April 11, 1981 

Conditional assembly for virtual disks 

Conditional assembly for MP/M 2.0 
VERSION DATE: April 14, 1981 

Equates added for IDRBIOS hooks ! 
VERSION DATE: April 16, 1981 

Testing for bank setup added 



Mode single density 

1 double density Version 2.0 
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2 


double density Version 1.4 


3 


hard disk Version 2.0 (8 MEG 


4 


HARD DISK VERSICN 2.0 (8 MEG 


5 


HARD DISK VERSICN 2.0 (8 MEG 


6 


HARD DISK VERSION 2.0 (4 MEG 



ASSEMBLER CONTROL STATEMENTS 





TRUE 
FALSE 

mdisk 
mpm20 


MACLIB 
MACLIB 

EQU 
EQU 

equ 
equ 


DISKDEG 
Z80S 


FFFF s 
0000 - 

0000 » 
FFFF = 


OFFFFH 
NOT TRUE 

false 
true 



; VALUE FOR TRUE 
;VALUE FOR FALSE 

;Virtual Disk cond asm boolean 
;MP/M 2.0 cond asm boolean 



1700 = 

0037 - 
00BB » 



Idrbiosbase equ 1700h 



for M 



density$mask$offset equ 37h ; density mask offset from LDRBIOS 
misc$params$offset equ Obbh ;misc. parameters offset from LDRBI 



THE FOLLOWING EQUATES ARE USER MODIFIABLE BASED ON 
PARTICULAR USER SYSTEM AND OPTIONS SELECTED. 



FFFF 
FFFF 



EMA EQU TRUE 
HARDSK EQU TRUE 



;EMA HARDWARE SUPPORT ?? 
;HARD DISK SUPPORT 



THE FOLLOWING CONSTANTS APPLY TO THE DEBLOCKING 
OF SECTORS LARGER THAN 128 FOR DOUBLE DENSITY 
AND HARD DISK. 



4000 » 


BLKSIZ 


EQU 


16384 


0400 = 


HSTSIZ 


EQU 


1024 


0010 = 


HSTSPT 


EQU 


16 


0008 = 


HSTBLK 


EQU 


HSTSIZ/128 


0080 = 


cms ft 


EQU 


HSTBLK * HSTSPT 


0007 = 


SECMSK 


EQU 


HSTBLK - 1 


0003 = 


SECSHF 


EQU 


3 



CP/M ALLOCATION SIZE 

HOST DISK SECTOR SIZE 

HOST DISK SECTORS PER TRACK 

CP/M SECTORS PER HOST BUFF 

CP/M SECTORS PER TRACK 

SECTOR MASK 

L0G2(HHSTBLK) 
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THE FOLLOWING EQUATES APPLY TO THE RELOCATABLITY 
OF THE CBIOS AND SHOULD NOT BE USER ALTERED. 



FFFF 



RELOC EQU 



TRUE 



;RELOCATABLE VERSION ?? 



000C = 



0000 





if 


mdisk 


maxdsk 


equ 

else 


13 




IF 


HARESK 


MAXDSK 


EQU 
ELSE 


12 


MAXDSK 


EQU 

ENDIF 

endif 


4 




IF 


RELOC 




ORG 


0000H 




ELSE 






ORG 


OCOOOH 




ENDIF 





0000 = 



BASE 



EQU 



/MAXIMUM NUMBER OF LOGICAL DRIVE 
/MAXIMUM NUMBER OF LOGICAL DRIVE 



0000 




t """■ " 

WRALL 


EQU 





;WRITE TO ALLOCATED 


0001 


ss 


WRDIR 


EQU 


1 


/WRITE TO DIRECTORY 


0002 




WRUAL 


EQU 


2 


/WRITE TO UNALLOCATED 


0004 


a 


NMBCNS 


EQU 


4 


; NUMBER OF CONSOLES 


0083 


ss 


POLL 


EQU 


131 


; XDOS POLL FUNCTION 


0084 


ss 


FLAGWT 


EQU 


132 


/ XDOS FLAG WAIT FUNCTION 


0085 


ss 


FLAGST 


EQU 


133 


; XDOS FLAG SET FUNCTION 


0005 


s 


HDFLAG 


EQU 


5 


/HARD DISK FLAG FOR WAIT & SET 


0006 


3 


FPYFLAG EQU 


6 


/FLOPPY DISK FLAG FOR WAIT & SET 


0000 


ss 


PLLPT 


EQU 





/ POLL PRINTER 


0001 


ss 


PLCOO 


EQU 


PLLPT+1 


/ POLL CONSOLE OUT #0 (CRTs ) 


0002 


3S 


PLC01 


EQU 


PLCO0+1 


; POLL CONSOLE OUT #1 (CRT:) 


0003 


Si 


PLC02 


EQU 


PDCOl+1 


; POLL CONSOLE OUT #2 (CRT: ) 


0004 


SS 


PLC03 


EQU 


PLC02+1 


/ POLL CONSOLE OUT #3 (CRT:) 


0005 


= 


PLCIO 


EQU 


PLC03+1 


; POLL CONSOLE IN #0 (CRT: ) 


0006 


= 


PLCI1 


EQU 


PLCI0+1 


; POLL CONSOLE IN #1 (CRT:) 
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0007 = 

0008 - 

0009 » 
0002 = 



PLCI2 
PLCI3 



EQU 
EQU 



MEMPORT EQU 
MEMSK EQU 



PLCI1+1 ; POLL CONSOLE IN #2 (CRT:) 
PLCI2+1 ; POLL CONSOLE IN #3 (CRT:) 

009H ; MEMORY SELECT PORT 
002H ; MEMORY SELECT MASK 



PAGE 



JUMP VECTORS FOR ENTRIES TO CBIOS ROUTINES 



EXTERNAL JIMP TABLE (BELOW XIOS BASE) 





;PDISP EQU 


$-3 






;XDOS EQU 


PDISP-3 






if 


mpm20 




0000 C3040B 


jmp 
else 


conmonbase 






JMP 


COLDSTART 


;COLD START 




end if 








WBOTE: 






0003 C3150B 


JMP 


WARMSTART 


;WARM START 


0006 C3790B 


JMP 


CONST 


;C0NSOLE STATUS 


0009 C3840B 


JMP 


CCNIN 


;CCNSOLE CHARACTER IN 


000C C38P0B 


JMP 


CONOUT 


/CONSOLE CHARACTER OUT 


000F C3A90C 


JMP 


LIST 


;LIST CHARACTER OUT - THIS 




• 
t 




; "CLIST" IF SETUP PROGRAM 




• 




; PARALLEL PRINTER PORT 


0012 C31A0B 


JMP 


R3NEMPTY 


; PUNCH NOT IMPLEMENTED 


0015 C31A0B 


JMP 


RTNEMPTY 


;READER NOT IMPLEMENTED 


0018 C3F902 


JMP 


HCMEIT 


;MOVE HEAD TO HCME 


001B C30302 


JMP 


SELDSK 


; SELECT DISK 


00 IE C36D02 


JMP 


SETTRK 


;SET TRACK NUMBER 


0021 C37302 


JMP 


SETSEC 


;SET SECTOR NUMBER 


0024 C35502 


JMP 


SETEMA 


;SET CMA ADDRESS 


0027 C38B02 


JMP 


READ 


;READ DISK 


002A C39602 


JMP 


WRITE 


;WRITE DISK 


002D C3BC0C 


JMP 


POLLPT 


;LIST STATUS 


0030 C3D605 


JMP 


SECTRAN 


; SECTOR TRANSLATE 




; EXTENDED I/O SYSTEM JUMP VECTOR 


0033 C3E90C 


JMP 


SEIMEMORY 


; SELECT MEMORY 


0036 C3CB0C 


JMP 


POLLDEVICE 


; POLL DEVICE 


0039 C3050D 


JMP 


STARTCLOCK 


; START CLOCK 


003C C30B0D 


JMP 


STOPCLOCK 


; STOP CLOCK 


00 3F C3100D 


JMP 


EXITREGICN 


; EXIT REGION 


0042 C3170D 


JMP 


MAXCCNSOLE 


; MAXIMIP! CONSOLE NUMBER 
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0045 C39D12 

0048 00 

0049 00 
004A 00 


JMP 
NOP 
NOP 
NOP 


SYSTEMINIT 


004B C3A102 
004E C3EE02 


JMP 
JMP 


SETMGD 
RETMOD 




if 
COLDSTART: 
WARMSTART: 

MVI 


not mpm20 
C,0 



SYSTEM INITIALIZATION 
NO JMP HERE 
FOR MP/M DELAY 



;ROUTINE TO SET DISK MODE 
?ROUTINE TO RETURN CURRENT 



JMP 



XDOS 



SEE SYSTEM INIT 
COLD & WAFM START INCLUDE 
FOR COMPATIBILITY WITH CP 
SYSTEM RESET, TERMINATE PROCESS 



RTNEMPTY; 

XRA 

RET 
endif 



A 



NOT USED 



005E 



LAST: 



ORG 



( (LAST-BASE )+0A2H) AND 0FF00H) -H35EH 





INTERUPT: 






005E 470B 


EW 


FLOPPY$INT 


;FLOPPY DISK 11 


0060 1C0BF 


DW 


NULL$INT 


• 


0062 1C0B 


DW 


NULL$INT 


i 


0064 1C0B 


DW 


NULL$INT 


• 
t 


0066 1A0D 


DW 


INT1HND 


;CTC INTERRUPT 


0068 1C0B 


DW 


NULL$INT 


1 


006A 5E0B 


DW 


HARD$INT 


;HARD DISK INT 


006C 1C0B 


EW 


NULL$INT 


• 


006E 1C0B 


DW 


NULL$INT 


i 




if 


not mpm20 






NULL$INT; 








EI 








RETI 








endif 
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WORK AND CONTROL AREAS FOR CBIOS SERVICES 



0070 FFFFFFFFFFTRKO: DB 



OFFH, 0FFH f OFFH, 0FFH f 0FFH f OFFH, OFFH, 0FFH r OFF 
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007C 0408102010SELO: DB 

0088 0000000003MGDE: DB 

0094 0000000000TCNT: DB 

00A0 0O0000000OPCNT: DB 



004H f 008H, 010H, 020H, 010H, 010H, 010H f 020H, 020 
OOOH, OOOH, OOOH, OOOH, 003H, 004H, 005H, 003H, 004 
OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, 000 
OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, 000 



OOAC 
OOAO 
OOAE 
OOAF 
00B1 
00B2 
00B4 
00B6 
00B8 
00B9 



00 

00 

00 

0000 

00 

0000 

0000 

0000 

10 

20 



OOBA C37D 
OOBC 0000 
OOBE 0004 



DISKNOs DB 
TRAKNO: DB 
HEADNO: DB 
DMAADR: DW 
SECTOO: DB 
DPEPTR: DW 
DBLKADs DW 
MPARMSs DW 
HTK1: DB 
HTK2: DB 



OOOH 

OOOH 

OOOH 

OOOH 

OOOH 

OOOH 

OOOH 

OOOH 

10H 

20H 



CURRENT DR 
CURRENT TR 
CURRENT HE 
CURRENT EM 
CURRENT SE 
CURRENT DP 
CURRENT EX 
MISC. PARA 
HARD DISK 
HARD DISK 



PARAMETER FLAGS 



0100H - DOUBLE HEADED DRIVES 

0200H » CENTRONICS PRINTER FOR LIST DEVICE 

0400H = FOUR DRIVE SYSTEM [ A B C D ] 



NOTE: 

NO CHANGES ARE TO BE MATE TO THE ABSOLUTE LOCATIONS OF 
ANY FIELDS PRIOR TO THIS POINT. EXTERNAL PROGRAMS ARE 
DEPENDENT UPON THE LOCATION OF THE PRECEDING DATA. 



IF 
SWIRTNj DB 

ENDIF 

DMAS1: DB 
DMASA: DW 
DMALEN: DW 



NOT DMA 

OEDH, 0A2H, OEDH, 045H 



0C3H,07DH 

OOOH 

1025-1 



;FAKE INI A 



FIRST PART 
ADDRESS FO 
LENGTH FOR 



OOCO 54CE68CEA5DMAS2H: DB 

00C6 14288507 DMAS2F: DB 

OOCA 8ACF01CF DMAS3: DB 
OOCE 01 DMAS3F: DB 
OOCF CF87 DB 



054H, OCEH, 068H, OCEH; , QA5H, 020H ;HARD DISK 
014H,028H,085H,007H ;FLOPPY DISK 



08AH,0CFH,001H,0CFH 

001H 

J0CFH,087H 



LAST PART 
001=READ, 
SETUP DMA, 
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CONTROL BLOCKS FOR DISK DRIVER 
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00D1 = 



DPBASE EQU 



00D1 B5010000 


DPEO: 


DW 


XLT0 f 0000H 


00D5 00000000 




EW 


0000H,0000H 


0OD9 9D12D40D 




DW 


DIRBUF,DPB0 


OODD 3E081E08 




DW 


CSV0,ALV0 


00E1 B5010000 


DPE1: 


DW 


XLT0,0000H 


00E5 00000000 




DW 


0000H,0000H 


00E9 9D12D40D 




DW 


DIRBUF,DPBO 


OOED 7E085E08 




EW 


CSV1,ALV1 


00F1 B5010000 


DPE2: 


EW 


XLT0,0000H 


00F5 00000000 




EW 


0000H,0000H 


00F9 9D12D40D 




DW 


DIRBUF,DPBO 


OOFD BE089E08 




EW 


CSV2,ALV2 


0101 B5010000 


DPE3s 


EW 


XLT0 f 0000H 


0105 00000000 




EW 


0000H,00Q0H 


0109 9D12D40D 




DW 


DIRBUF,DPBO 


010D FE089E08 




DW 


CSV3,ALV3 






IF 


HARESK 


0111 00000000 


DPE4; 


EW 


0000H,0000H 


0115 00000000 




EW 


0000H,0000H 


0119 9D12010E 




EW 


DIRBUF,DPB3 


011D 5E091E09 




EW 


CSV4,ALV4 


0121 00000000 


DPE5: 


DW 


000CH,0000H 


0125 00000000 




DW 


0000H r 0000H 


0129 9D12100E 




DW 


DIRBUF,DPB4 


012D 9E095E09 




EW 


CSV5,ALV5 


0131 00000000 


DPE6: 


EW 


00O0H,OOOOH 


0135 00000000 




EW 


0000H,0000H 


0139 9D121F0E 




DW 


DIRBUF,DPB5 


013D DE099E09 




DW 


CSV6,ALV6 


0141 00000000 


DPE7: 


DW 


0000H r 0000H 


0145 00000000 




DW 


0000H,0000H 


0149 9D12010E 




DW 


DIRBUF,DPB3 


014D 1EQADE09 




DW 


CSV7,ALV7 


0151 00000000 


DPE8: 


DW 


0000H f 0000H 


0155 00000000 




DW 


0OOOH,0O0OH 


0159 9D12100E 




EW 


DIRBUF r DPB4 


015D 5EGA1E0A 




DW 


CSV8,ALV8 


0161 00000000 


DPE9: 


DW 


0000H r 0000H 


0165 00000000 




DW 


O0OOH f 0OOOH 


0169 9D121F0E 




DW 


DIRBUF,DPB5 


016D 9EQA5EQA 




EW 


CSV9,ALV9 



START OF DISK PARAMETER BLOCK 

TRANSLATE TABLE AND WORK AREA 

SCRATCH AREA 

DIR BUFF f PARM BLOCK 

CHECK VECTOR, ALLOC VECTOR 

TRANSLATE TABLE AND WORK AREA 

SCRATCH AREA 

DIR BUFF, PARM BLOCK 

CHECK VECTOR, ALLOC VECTOR 

TRANSLATE TABLE AND WORK AREA 

SCRATCH AREA 

DIR BUFF, PARM BLOCK 

CHECK VECTOR, ALLOC VECTOR 

TRANSLATE TABLE AND WCRK AREA 

SCRATCH AREA 

DIR BUFF, PARM BLOCK 

CHECK VECTOR, ALLOC VECTOR 



^TRANSLATE TABLE AND WORK AREA 
; SCRATCH AREA 
;DIR BUFF, PARM BLOCK 
;CHECK VECTOR, ALLOC VECTOR 

;TRANSLATE TABLE AND WCRK AREA 
/SCRATCH AREA 
;DIR BUFF, PARM BLOCK 
;CHECK VECTOR, ALLOC VECTOR 

/TRANSLATE TABLE AND WORK AREA 
/SCRATCH AREA 
;DIR BUFF, PARM BLOCK 
/CHECK VECTOR, ALLOC VECTOR 

/TRANSLATE TABLE AND WCRK AREA 
/SCRATCH AREA 
/DIR BUFF, PARM BLOCK 
/CHECK VECTOR, ALLOC VECTOR 

/TRANSLATE TABLE AND WORK AREA 
/SCRATCH AREA 
/DIR BUFF, PARM BLOCK 
/CHECK VECTOR, ALLOC VECTOR 

/TRANSLATE TABLE AND WORK AREA 
/SCRATCH AREA 
/DIR BUFF, PARM BLOCK 
/CHECK VECTOR, ALLOC VECTOR 
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0171 00000000 


DPEA: 


DW 


0000H,0000H 


0175 00000000 




DW 


0O00H,0O0OH 


0179 9D122E0E 




DW 


DIRBUF,DPB6 


017D C20A9EQA 




DW 


CSVA,ALVA 


0181 00000000 


DPEB: 


DW 


00O0H,0O0OH 


0185 00000000 




DW 


0000H,0000H 


0189 9D122E0E 




DW 


DIRBUF,DPB6 


018D E60AC20A 




DW 


CSVB,ALVB 



TRANSLATE TABLE AND WCRK AREA 

SCRATCH AREA 

DIR BUFF, PARM BLOCK 

CHECK VECTOR, ALLOC VECTOR 

TRANSLATE TABLE AND WORK AREA 

SCRATCH AREA 

DIR BUFF, PARM BLOCK 

CHECK VECTOR, ALLOC VECTOR 



ENDIF 



if mdisk 

Virtual disk parameter header 



DPEC: 



end if 



DW 
DW 
DW 
DW 



0000H,0000H 
0000H,0000H 
DIRBUF,DPB7 
CSVC,ALVC 



TRANSLATE TABLE AND WORK AREA 

SCRATCH AREA 

DIR BUFF, PARM BLOCK 

CHECK VECTOR, ALLOC VECTOR 



0191 B5010000 
0195 00000000 
0199 9D12D40D 


MODLO; 


DW 
DW 
DW 


XLT0,000H 
000H,000H 
DIRBUF,DPB0 


019D CFOIOOOO 
OlAl 00000000 
01A5 9D12E30D 


MODL1: 


DW 
DW 
EW 


XLT1,0000H 
0OOOH,0OO0H 
DIRBUF,DPB1 } 


01A9 CFOIOOOO 
01AD 00000000 
01B1 9D12F20D 


MODL2: 


DW 
DW 
DW 


XLT2,0000H 
0000H,0000H 
DIRBUF,DPB2 ; 



MODEL DPE FOR MODE 



MODEL DPE FOR MODE 1 



MODEL DPE FOR MODE 2 



01B5 


01070D1319XLTO: 


DB 


01C2 


02080E141A 

XLT1: 
XLT2; 


DB 


01CF 


0102030405 


DB 


01DC 


0E0F101112 


DB 


01E9 


1B1C1D1E1F 


DB 



01F6 28292A2B2C 



1,7,13,19,25,5,11,17,23,3,9,15,21 
2,8,14,20,26,6,12,18,24,4,10,16,22 



01,02,03,04,05,06,07,08,09,10,11,12,13 
14,15,16,17,18,19,20,21,22,23,24,25,26 
27,28,29,30,31,32,33,34,35,36,37,38,39 
40,41,42,43,44,45,46,47,48,49,50,51,52 
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DISK ACCESS ROUTINES 
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SELDSK: 








0203 79 




MOV 


A f C 


;LIMIT SELECT TO REAL OPTICN 


0204 FEOC 




CPI 


MAXDSK 


t 






JRNC 


SELERR 


; INVALID DRIVE 


0206+303A 




EB 


030H,SELERR-$-l 


• FAKE JRNC INSTRUCTION 




t 


MOV 


A,E 


. TEST p0R jnjtial SELECT 




1 


ANI 


1 


; E » IS FIRST TIME 






e 


PUSH 


PSW 


a 
t 


0208 1600 




MVI 


D,0 


t 


020A 59 




MOV 


E,C 


; TRANSLATE TABLE 


020B 214602 




LXI 


H r DTBLT 


; FOR LOGICAL TO PHYSICAL 


020E 19 




DAD 


D 


« 
9 


020F 4E 




MOV 


C,M 


; C = PHYSICAL DRIVE 


0210 79 




MOV 

if 
CPI 
JZ 
end if 


A r C 

mdisk 

12 

VIRTUAL 


; M translates to the 12 disk 




/ 


POP 


PSW 


; RESTORE TEST 




t 


JRNZ 


SELSDP 


? BYPASS SELECT 




SETDSKs 








0211 0600 




MVI 


B,0 


t 


0213 217C00 




LXI 


H,SEL0 


; BASE OF SELECT MASKS 


0216 09 




DAD 


B 


* 
8 


0217 7E 




MOV 


A,M 


; GET SELECT BYTE 


0218 A7 




ANA 


A 


CHECK FOR VALID DRIVE 






JRZ 


SELERR 


; DRIVE NOT CONFIGURED 


02194-2827 




DB 


02H,SELERR-$-l 


. FAKE JRZ INSTRUCTION 


021B 79 




MOV 


A r C 




021C FE04 




CPI 
JRC 


4 

SELSDP 


; CHECK FOR FLOPPY 


021E+380F 




DB 


038H,SELSDP-$-l 


!-» — . FAKE JRC INSTRUCTION 


0220 7E 


CHKHRD: 


MOV 


A,M 


; RESTORE SELECT BYTE 


0221 D320 




OUT 


20H 




0223 C5 




PUSH 


B 




0224 0E01 




MVI 


C,l 


; DELAY FOR 1 MS 


0226 CD8207 




CALL 


DELAY 




0229 CI 




POP 


3 




022A DB24 




IN 


24H 


; CHECK FOR HARD DISK READY 


022C 17 




RAL 
JRNC 


SELERR 


; 80H = READY 


022OK3013 


SELSDP: 


DB 


030H r SELERR-$-l 


._ FAKE JRNC INSTRUCTION 


022F 79 




MOV 

if 


A,C 
mdisk 






VIRTUAL: 










endif 






0230 32E60A 




STA 


NEWESK 


;SAVE FOR I/O LATER 


0233 2600 




MVI 


H,0 


7 
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0235 69 


MOV 


L,C 


0236 29 


DAD 


H 


0237 29 


DAD 


H 


0238 29 


DAD 


H 


0239 29 


DAD 


H 


023A 11D100 


LXI 


D r DPBASE 


023D 19 


DAD 


D 


023E 22B200 


SHLD 


DPEPTR 


0241 C9 


RET 




0242 210000 


SELERRs LXI 


H,0 


0245 C9 


RET 





COMPUTE DP HEADER ADDRESS 

* 2 

* 4 

* 8 

* 16 (DP HEADER SIZE) 
START OF DP HEADERS 
POINT TO CORRECT CNE 

SAVE ADDRESS OF CURRENT DP 



INDICATE ERROR 
AND RETURN 



0246 0001Q20304DTBLT: CB 



A,B,C,D,E,F,G,H r I,J, K f L, M,N,0 
0, 1, 2, 3,4,5,6,7, 8, 9,10, 11,12,0,0 





SETEMA: 




0255 60 


MOV 


H,B 


0246 69 


MOV 


L,C 


0247 22AF00 


SHLD 


DMAADR 




if 


mpm20 


025A 23 


inx 


h 


025B 7D 


mov 


a,l 


025C B4 


ora 


h 


025D CO 


rnz 




025E 21F00A 


Ixi 


h , hstwrt 


0261 7E 


mov 


a,m 


0262 3600 


mvi 


m,0 


0264 B7 


ora 


a 


0265 C8 


rz 




0266 CD6D04 


call 


writehst 


0269 B7 


ora 


a 


026A C8 


rz 




026B El 


pop 
endif 


h 



TO ALLOW SAVING 



;test for flush buffers 



;HL « FFFEh is flush buffer 



; flush host write if pending 
; return if no error 



026C C9 



ret 





SETTRK: 






026D 60 




MOV 


H,B 


026E 69 




MOV 


L,C 


026F 22E70A 




SHLD 


NEWTRK 


0262 C9 


SETSEC: 


RET 




0273 79 




MOV 


A,C 


0274 32E90A 




STA 


NEWSEC 


0277 C9 


SETDEN: 


RET 




0278 117C00 




LXI 


D,SEL0 


027B 2AE60A 




LHLD 


NEWDSK 


027E 2600 




MVI 


H,000H 



TO ALLOW SAVE 

SAVE NEXT TRACK NUMBER 
RETURN TO CALLER 



FOR SAVE 

RETURN TO CALLER 



START OF SELECT/DENSITY MASK 

NEXT DRIVE ADDRESS 

ENSURE ZERO FOR SINGLE BYTE 
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0280 19 

0281 79 

0282 E601 

0284 4F 

0285 7E 

0286 E6FE 

0288 Bl 

0289 77 
028A C9 



DAD 
MOV 
ANI 
MOV 
MOV 
ANI 
ORA 
MOV 
RET 

if 
MREADSECTOR: 
call 
di 

call 
Ixi 
lxi 
lhld 
Idir 
mvi 
out 
ei 
lxi 
lhld 
xchg 
lxi 
Idir 
xra 
ret 

mbankno 
addroff 
localbuf 

compbank: 

Ida 

mov 

ani 

mov 

mov 

mvi 

ani 

rar ! 

inr 

sta 

dad 
dad 
dad 
mov 
mov 
dad 
dad 

Ida 



D 

A C 

00000001B 

C,A 

A,M 

11111110B 

C 

M,A 



mdisk 

compbank 

chgbank 

b,128 

d , localbuf 

addroff 

a,02h 
09h 

b,128 
dmaadr 

h, localbuf 



db 
dw 
ds 





128 



POINT TO CORRECT MASK 
ISOLATE DENSITY BIT 

SAVE FCR NOW 

LOAD SELECT DENSITY MASK 

RESET CURRENT DENSITY SETTING 

SET NEW VALUE 

RESTORE MASK IN TABLE 

RETURN TO CALLER 



; compute bank 



? block move into the dma area 
; select bank 



newtrk 
h,a 
Ofh 
l,a 
a f h 
h,0 
OfOh 
rar I rar I rar 
a 
mbankno 

h 

h 

h 

e,l 

d,h 

d 

d 

newsec 



;save track rem 16 
; restore track 

; bank is high order nibble 

; which bank we want 

;trk 0-15 
,* * 2 
; * 4 

; * 24: 

; figure offset with the 
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mov 


e,a 




mvi 


d,0 




dad 


d 




dad 


h I dad h ! 




shldd 


addroff 




ret 






endif 






READ: 






if 


mdisk 




LDA 


NEWESK 




CPI 


12 




JZ 


MREADSECTOR 




endif 




028B CDEE02 


CALL 


RETEMQD 


028E FE03 


CPI 


00 3H 


0290 DAE405 


JC 


READSOFT 


0293 C36B03 


JMP 


READHARD 




if 


mdisk 




mwritesector: 






call 


compbank 




Ihld 


dmaadr 




Ixi 


d,localbuf 




li 


b,128 




Idir 






di 






call 


chgbank 




Ixi 


d,localbuf 




Ixi 


b,128 




lhld 


addroff 




xchg 






Idir 






mvi 


a,02h 




out 


09h 




ei 






xra 


a 




ret 






chgbank: 






Ida 


mbankno 




ral 






ral 






ral 






ani 


018h 




ori 


memsk 




out 


009h 




ret 






endif 






WRITE: 






if 


mdisk 




Ida 


mewdsk 




cpi 


12 



; add sector offset within 
dad h ! dad h! dad h I dad h ! 
; (track * 24 + sector) * 1 



;VIRTUAL DISK ? 



;WHAT TYPE OF I/O ?? 

•FLOPPY DISK DRIVE 

;HARD DISK I/O 



; select bank 
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0296 CDEE02 
0299 FE03 
029B DAF205 
029E C37E03 



jz 
end if 


mwritesector 


CALL REIMOD 

CPI 003H 

JC WRITESOFT ; 

JMP WRITEHARD 



WHAT TYPE OF I/O ?? 

FLOPPY DISK 
HARD DISK I/O 



PAGE 



ROUTINES TO SET AND RETURN TOE CURRENT DRIVE MCDE 



02A1 21E60A 


SETMOD: 

LXI 


H,NEWDSK ; 


SAVE NEWDSK IN STACK 


02A4 7E 


MOV 


A,M ; 




02A5 F5 


PUSH 


PSW i 




02A6 70 


MOV 


M,B ; 




02A7 C5 


PUSH 


B j 






1 MVI 


E,0 ; 


INDICATE INITIAL SELECT 


02A8 48 


MOV 


C e B I 


CALL DISK SELECT 


02A9 CD0302 


CALL 


SELDSK i 




02AC CI 


POP 


B i 




02AD 7C 


MOV 


A,H j 


• CHECK FOR BAD SELECT 


02AE B5 


ORA 


L j 






JRZ 


SMERR ', 


YES - ABORT CHANGING 


02AF+2832 


DB 


028H,34ERR-$-l j 


FAKE JRZ INSTRUCTION 


02B1 68 


MOV 


L,B j 


• B AND L = ERIVE # 


02B2 2600 


MVI 


H f 000H 


1 


02B4 78 


MOV 


A,B i 


•CHECK MODE SET VALIDITY 


02B5 FE04 


CPI 


004H i 


•ONLY VALID FOR FLOPPY DISK 




JRNC 


94ERR j 


•INVALID DRIVE FOR MODE SET 


02B7+302A 


DB 


030H,SMERR-$-l ; 


FAKE JRNC INSTRUCTION 


02B9 118800 


LXI 


D r MODE 


? START OF MODE BYTES 


02BC 19 


DAD 


D 


1 


02BD 71 


MOV 


M,C j 


;SAVE NEW MODE BYTE 


02BE E5 


PUSH 


H i 


•SAVE MODE BYTE ADDRESS 


02BF 79 


MOV 


A,C ; 


? SETUP FOR DENSITY CHANGE 


02C0 B7 


ORA 


A i 


» 


02C1 OEOO 


MVI 


C000H j 


•ASStME SINGLE DENSITY MODE 




JRZ 


SETSEL 


•VERIFY ASSUMPTION 


02C3+2802 


DB 


028H f SETSEL-$-l j 


— FAKE JRZ INSTRUCTION 


02C5 0E01 


MVI 


C r 001H 


?SET FOR DOUBLE DENSITY MODE 


02C7 CD7802 


SETSELs CALL 


SETDEN , 


?SET DENSITY BASED ON LOW BIT 


02CA El 


POP 


H 


?RESTORE 


02CB 6E 


MOV 


L r M 


? PICKUP MODE AGAIN 


02CC 2600 


MVI 


H,000H 


?FCR SINGLE BYTE PRECISION 


02CE 7D 


MOV 


A,L 


?SAVE MODE IN ACCU4ULATOR FLAG 


02CF 29 


DAD 


H 


',* 2 


02D0 29 


DAD 


H ; 


.* 4 


02D1 E5 


PUSH 


H 


?SAVE * 4 


02D2 29 


DAD 


H , 


.* 8 
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02D3 Dl 


POP 


D 


02D4 19 


DAD 


D 


02D5 119101 


LXI 


D,MODL0 


02D8 19 


DAD 


D 


02D9 EB 


XCHG 




02DA 2AB200 


LHLD 


DPEPTR 


02DD EB 


XCHG 




02DE 010C00 


LXI 
LDIR 


B,12 


02E1+EDB0 


DB 


0EDH,0B0H 


02E3 Fl 


34ERR: POP 


PSW 


02E4 E5 


PUSH 


H 


02E5 32E60A 


STA 


NEWDSK 


02E8 4F 


MOV 


C,A 


02E9 CD0302 


CALL 


SELDSK 


02EC El 


POP 


H 


02ED C9 


RET 
RETMODs 




02EE 118800 


LXI 


D,MODE 


02F1 2AE6GA 


LHLD 


NEWDSK 


02F4 2600 


MVI 


H,000H 


02F6 19 


DAD 


D 


02F7 7E 


MOV 


A r M 


02F8 C9 


RET 





REGAIN * 4 
* 12 

FIRST MODEL DPE 
POINT TO THIS CNE 
SETUP TEMPORARILY AS DESTINATION 
ADDRESS OF CURRENTLY SELCT DSK 
SETUP TO ALTER 
LENGTH FOR MOVE 
DO MOVE 
FAKE LDIR INSTRUCTION 



RESTORE ORIGINAL NEWDSK 



RETURN TO CALLER 



START OF MODE BYTES 
NEXT ERIVE FCR I/O 
RESET FOR SINGLE BYTE QUAN 
POINT TO IT. . . . 
LOAD IT FOR CALLER 
RETURN, WITH CURRENT MODE 
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• 
/ 

o 

f 

• 


THIS 


IS THE HOME 


DEVICE ROUTINE 


02F9 3AE60A 


HCMEIT: 


LDA 


NEWDSK 




CHECK FOR FIRST HCME 


02FC FEOC 




CPI 


12 


• 


CHECK FOR VIRTUAL DISK 


02FE C20803 




JNZ 


REALDISK 






0301 AF 




XRA 


A 


\ 


VIRTUAL DISK 


0302 67 




MOV 


H r A 


i 


SETTRACK TO ZERO 


0303 6F 




MOV 


L,A 






0304 22E70A 




SHLD 


NEWTRK 






0307 C9 




RET 










REALDISK: 








0308 FE04 




CPI 


4 




CHECK FCR FLOPPY 






JRC 


HCME 




• DO NOT BYPASS FLOPPY HCME 


030A+380E 




DB 


038H r HCME-$-l ■; 


FAKE JRC INSTRUCTION 


030C 4F 




MOV 


C,A 






030D 0600 




MVI 


B f 




POINT TO PRESENT TRACK STORAGE 


030F 217000 




LXI 


H r TRK0 






0312 09 




DAD 


B 






0313 7E 




MOV 


A,M 




• CHECK IF INITIALIZED 


0314 FEFF 




CPI 


OFFH 






0316 3E00 




MVI 


A f 






0318 CO 




RNZ 






? YES - RETURN WITH NO ERROR 


0319 77 




MOV 


M,A 
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HCME: 








031A 3AE60A 




LDA 


NEWDSK ; 


GET VALUE OF DRIVE FOR HCME 


031D FE04 




CPI 


004H ; 


IS IT A HARD DISK ?? 






JRNC 


HOMEHARD ; 


•YES, PROCESS 


031F+3022 




DB 


030H,HCMEHARD-$-l ; FAKE JRNC INS 




HOMESOFT: 






0321 CD5205 




CALL 


DSKSEL 


•SELECT CORRECT DRIVE (IN A REG 


0324 3AF60A 




LDA 


ERFLAG 




0327 B7 




ORA 


A , 


;CHECK FOR ERRORS DURING SELECT 






JRNZ 


HCME1A 


rEXIT IF ERRORS 


0328+2016 




DB 


020H,HCMElA-$-l , 


', FAKE JRNZ INSTRUCTION 


032A CDB305 




CALL 


POINT j 


POINT TO TRACK REGISTER SAVE 


032D 3600 




MVI 


M r 000H 


?RESET TO TRACK ZERO 


032F CD1905 




CALL 


DBL$UPDATE 




0332 3E0A 




MVI 


A r 00AH 


?HCME COMMAND.. .. 


0334 CD6307 


* 


CALL 


FINTFIX 


?CLEAR ANY PENDING INTERRUPT 
•AND -ISSUE CCMMAND 


0337 CD3A07 


HCME1: 


CALL 


FPYWAIT 


?WAIT UNTIL I/O COMPLETE 


033A 3APC0A 




LDA 


STATUS 


?PICKUP STATUS BYTE 


033D E698 




ANI 


10011000B 


?CHECK STATUS 


033F C8 




RZ 




^RETURN WITH GOOD RESULT 


0340 3E01 


HCME1A: 


MVI 


A,001H 


?SET ERROR CN HCME 


0342 C9 




RET 




?AND RETURN 




HOIEHARDs 










IF 


HARDSK 




0343 CD5205 




CALL 


DSKSEL 


?SELECT CORRECT DRIVE (IN A 


0346 CDB305 




CALL 


POINT 


?POINT TO SAVE AREA 


0349 3600 




MVI 


M,000H 


?SET TO TRACK ZERO 


034B EB 




XCHG 




? POINT TO SELECT WORD 


034C 7E 




MOV 


A,M 


?LOAD SELECT MASK 


034D E6F0 




ANI 


11110000B 


?RESET HEAD MASK 


034F 77 




MOV 


M,A 


?SAVE 


0350 D320 




our 


020H 


?WRITE HEAD/SELECT MASK 


0352 3E20 




MVI 


A,020H 


,-HCME CCMMAND 


0354 CD2107 


/ 


CALL 


INTFIX 


?CLEAR ANY PENDING INTERRUPT 
?AND ISSUE CCMMAND 


0357 CD1707 


HCME2s 


CALL 


WAITO 


;WAIT UNTIL I/O COMPLETE 


035A 0E14 




MVI 


C,20 


?DELAY FOR 20 MILLISECONDS 


035C CD8207 




CALL 


DELAY 


I 


035F AF 




XRA 


A 


;SET NEW TRACK REGISTER TO 


0360 D322 




our 


022H 


;F0R CONTROLLER 




* 


LXI 


H,MHM 


. ***DEBUG*** 




• 


CALL 


MSPRT 


• ***DEBUG*** 


0362 3AFC0A 




LDA 


STATUS 


;PICKUP STATUS BYTE 


0365 E65D 




ANI 


01011101B 


?CHECK STATUS 


0367 C8 




RZ 




• 


0368 3E01 




MVI 
ENDIF 


A r 001H 


;SET ERROR ON HCME 


036A C9 




RET 




;AND RETURN 
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THESE ARE THE HARD DISK UNBLOCK/REBLOCK AND READ 
AND WRITE ROUTINES CALLED BY THE BDOS SOFTWARE. 



036B AP 
036C 32F10A 
036F 3E01 
0371 32F80A 
0374 32F70A 
0377 3E02 
0379 32F90A 

037C+1864 



037E AF 
037F 32F80A 

0382 79 

0383 32F90A 



0386 E602 
0388+2817 



READHARD: 
IF 
XRA 
STA 
MVI 
STA 
STA 
MVI 
STA 
JR 
CB 
ENDIF 

WRITEHARD: 
IF 
XRA 
STA 
MOV 
STA 

if 

ani 

JRZ 

DB 

else 

CPI 

JRNZ 

end if 



HARDSK 

A 

UNACNT 

A,001H 

READOP 

RSFLAG 

A,WRUAL 

WRTYPE 

RWOPER 

018H,FWOPER-$-l 



HARDSK 

A 

READOP 

A,C 

WRTYPE 

mpm20 

WRUAL 

CHKUNA 

028H r CHKUNA-$-l 

WRUAL 
CHKUNA 



RESET UNALLOCATED COUNT 

READ THE SELECTED CP/M SECTOR 

MUST READ DATA 

TREAT AS UNALLOCATED 
TO PERFORM THE READ 
FAKE JR INSTRUCTION 



;WRITE THE SELECTED CP/M SECTOR 
NOT A READ OPERATION 
WRITE TYPE IS PASSED IN REG C 



IS IT WRITE UNALLOCATED ?? 

CHECK FOR UNALLOCATED 

FAKE JRZ INSTRUCTION 

;IS IT WRITE UNALLOCATED ?? 
;CHECK FOR UNALLOCATED 



WRITE TO UNALLOCATED, SET PARAMETERS 



038A 
038C 
038F 
0392 
0395 
0398 
039B 
039E 



3E80 

32F10A 

3AE60A 

32F20A 

2AE70A 

22F30A 

3AE90A 

32F50A 



MVI 


A,BLKSIZ/128 ; 


•NEXT UNALLOC RE( 


STA 


UNACNT 




IDA 


MEWDSK 


•DISK FOR I/O 


STA 


UNADSK 


fUNADSK = NEWDSK 


LHLD 


NEWTRK 




SHLD 


UNATRK 


?UNATRK = NEWDSK 


LDA 


NEWSEC 




STA 


UNASEC 


} UNASEC » NEWSEC 



CHECK FOR WRITE TO UNALLOCATED SECTOR 





CHKUNA: 




03A1 3AF10A 


IDA 


UNACNT 


03A4 B7 


ORA 


A 




JRZ 


ALLOC 



ANY UNALLOCATED REMAIN ?? 
SKIP IF NOT 
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03A5+2833 



OB 



028H,ALLOC-$-l ; — FAKE JRZ INSTRUCTICN 



MORE UNALLOCATED RECCRES REMAIN 



03A7 3D 


DCR 


A 


;UNACNT = UNACNT - 1 


03A8 32F10A 


STA 


UNACNT 




03AB 3AE60A 


LDA 


NEWDSK 


•SAME DISK 11 


03AE 21F20A 


LXI 


H,UNAD6K 




03B1 BE 


CMP 


M 


,»NEWDSK » UNADSK 11 




JRNZ 


ALLOC 


;SKIP IF NOT 


03B 2+2026 


DB 


020H,ALLOC-$-l 


? . FAKE JRNZ INSTRUCTION 



DISKS ARE THE SAME 



03B4 21F30A 


LXI 


H, UNATRK 


03B7 CD6104 


CALL 


NEWTRKCMP ;NEWTRK - UNATRK 11 




JRNZ 


ALLOC ?SKIP IF NOT 


03BA+201E 


DB 


020H,ALL0C-$-l ;— FAKE JRNZ INSTRUCTION 



TRACKS ARE THE SAME 



03BC 3AE90A 
03BF 21F50A 
0X2 BE 

0X3+2015 



LDA 


NEWSEC 


;SAME SECTOR 11 


LXI 


H,UNASEC 


} 


CMP 


M 


;NEWSEC = UNASEC 11 


JRNZ 


ALLOC 


?SKIP IF NOT 


DB 


020H,ALLOC-$-l 


. fake JRNZ INSTRUCTICN 



MATCH, MOVE TO NEXT SECTOR FOR FUTURE REFERENCE 



0X5 34 
0X6 7E 
03C7 FE80 

03C9+-3809 



INR 


M , 


•UNASEC = UNASEC + 1 


MOV 


A r M t 


•END OF TRACK 11 


CPI 


CIMSPT 


;C0UNT CP/M SECTORS 


JRC 


NOOVF 


fSKIP IF NO OVERFLOW 


DB 


038H,NOOVF-$-l , 


FAKE JRC INSTRUCTION 



OVERFLOW TO NEXT TRACK 



03CB 3600 
03CD 2AF30A 
03D0 23 
03D1 22F30A 



MVE 


M,000H 


LHLD 


UNATRK 


INX 


H 


SHLD 


UNATRK 



;UNASEC = 



;UNATRK = UNATRK + 1 



MATCH FOUND, MARK AS UNNECESSARY READ 
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NOOVF: 








03D4 AF 


XRA 


A 


?ZERO TO ACCUMULATOR 


03D5 32F70A 


STA 


RSFLAG 


?RSFLAG « 




JR 


RWOPER 


•TO PERFORM THE WRITE 


03D8+1808 


EB 


018H,RWOPER-$-l j 


FAKE JR INSTRUCTION 



NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ 



ALLOC: 



03DA AF 


XRA 


A 


?ZERO TO ACCUMULATOR 


03DB 32F10A 


STA 


UNACNT , 


;UNACNT = 


03DE 3C 


INR 


A t 


rONE TO ACCUMULATOR 


03DF 32F70A 


STA 


RSFLAG 


fRSFLAG = 1 



THE FOLLOWING CODE IS COMMON TO BOTH READ AND WRITE 





/ 






i 

FWOPER: 




03E2 AF 


XRA 


A 


03E3 32F60A 


STA 


ERFLAG 


03E6 3AE90A 


LDA 


NEWSEC 




REPT 


SECSHF 




ORA 


A 




RAR 






ENDM 




03E9+B7 


ORA 


A 


03EA+1F 


RAR 




03EB4B7 


ORA 


A 


03EC+1F 


RAR 




03ED+B7 


ORA 


A 


03EE+1F 


RAR 




03EF 32EE01 


STA 


NEWHST 



ZERO TO ACCUMULATOR 
NO ERRORS YET.,.. 
COMPUTE HOST SECTOR 
COMPUTE HOST SECTOR 
CARRY = 
SHIFT RIGHT 

CARRY = 

SHIFT RIGHT 

CARRY » 

SHIFT RIGHT 

CARRY * 

SIFT RIGHT 

HOST SECTOR TO SEEK 



ACTIVE HOST SECTOR ?? 



03F2 2AEFQA 
03F5 7E 
03F6 3601 
03F8 B7 

03F9+2821 



LXI 


H f STACT 


MOV 


A f M 


MVI 


M f 001H 


ORA 


A 


JRZ 


FILLHST 


DB 


028H r FIl 



HOST ACTIVE FLAG 

ALWAYS BECOMES 1 
WAS IT ALREADY ? 
FILL HOST IF NOT 



~ FAKE JRZ INST 



HOST BUFFER ACTIVE, SAME AS SEEK BUFFER 



03FB 3AE60A 



LDA 



NEWDSK 
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03FE 21EA0A 




LXI 


H, HSTDSK ;SAME DISK 11 


0401 BE 




CMP 


M ;NEWDSK = HSTDSK 11 






JRNZ 


NCMATCH 


0402+2011 




DB 


020H,NCMATCH-$-l ; FAKE JRNX INST 





9 

• 
9 

o 


SAME 


DISK, SAME TRACK 11 


0404 21EBGA 




LXI 


H,HSTTRK ; 


0407 CD6104 




CALL 


NEWTRKCMP ;NEWTRK = HSTTRK 11 






JRNZ 


NCMATCH 


04GA+2009 




DB 


020H,NCMATCH-$-l ; — — FAKE JRNZ INST 



SAME DISK, SAME TRACK, SAME BUFFER 11 



040C 3AEEQA 
040F 21ED0A 
0412 BE 



?NEWHST = HSTSEC 11 



Wk NEWHST 

LXI H, HSTSEC 

CMP M ; 

JRZ MATCH ;SKIP IF MATCH 

DB 028H,MATCH-$-l ;— - FAKE JRZ INSTRUCTION 



PROPER DISK, BUT NOT CORRECT SECTOR 



NC 

0415 3AF00A 


MATCH? 

LDA 


HSTWRT 


jHOST WRITTEN 11 


0418 B7 


ORA 


A 


9- 

9 


0419 C46D04 


CNZ 


WRITEHST 


;CLEAR HOST BUFFER 



MAY HAVE TO FILL HOST BUFFER 





FILLHST 


9 






041C 3AE60A 




LDA 


NEWDSK 


® 


041F 32EA0A 




STA 


HSTDSK 




0422 2AE70A 




LHLD 


NEWTRK 




0425 22EB0A 




SHLD 


HSTTRK 




0428 3AEE0A 




LDA 


NEWHST 




042B 32ED0A 




STA 


HSTSEC 




042E 3AF70A 




LDA 


RSFLAG 


•NEED TO READ 11 


0431 B7 




ORA 


A 




0432 C47F04 




CNZ 


READHST 


;YES, IF 1 


0435 AF 




XRA 


A 


?ZERO TO ACCUMULATOR 


0436 32F00A 


MATCH; 


\3LA 


HSTWRT 


?NO PENDING WRITE 


0439 3AE90A 




LDA 


NEWSEC 


;MASK BUFFER NUMBER 


043C 3607 




ANI 


SECMSK 


; LEAST SIGNIF BITS 


043E 6F 




MOV 


L f A 


; READY TO SHIFT 


043F 2600 




MVI 


H,000H 


;DOUBLE COUNT 
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0441+29 
0442+29 
0443+29 
0444+29 
0445+29 
0446+29 
0447+29 



REFT 


7 


DAD 


H 


ENEM 




DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 



HL NOW HAS RELATIVE HOST BUFFER ADDRESS 



0448 119C0E 


LXI 


D,HSTBUF , 




044B 19 


DAD 


D , 


'HL » HOST ADDRESS 


044C EB 


XCHG 




•NOW IN DE 


044D 2AAF00 


LHLD 


EMAAER 


;GET/PUT CP/M DATA 


0450 EB 


XCHG 




•SET FOR Z80 LDIR INSTRUCTION 


• 
9 


LXI 


B,128 \ 


?LENGTH OF MOVE 


0451 3AF80A 


LDA 


READOP , 


•WHICH WAY ?? 


0454 B7 


ORA 


A 




0455 C23D0E 


JNZ 


FWMOVE 


?SKEP IF READ 


t 
i 
$ 


WRITE 


OPERATION, MARK AND SWITCH DIRECTION 


0458 3E01 


MVI 


A f 001H 




045A 32F00A 


STA 


HSTWRT 


•HSTWRT = 1 


045D EB 


XCHG 




?SWAP DIRECTION 


045E C33D0E 


jmp 


remove 





end if 



PAGE 





r 
i 

m 
t 

c 
t 


UTILITY SUBROUTINE FOR 16 BIT COMPARE 




t 


IF 


HARDSK 






NEWTRKCMP: 






0461 EB 




XCHG 




•HL = .UNATRK OR .HSTTRK 


0462 21E70A 




LXI 


H,NEWTRK j 




0465 1A 




LDAX 


D j 


•LOW BYTE COMPARE 


0466 BE 




CMP 


M 


•SAME ?? 


0467 CO 




RNZ 




^RETURN IF NOT 


0468 13 




INX 


D 


?TO CHECK HIGH BYTE 


0469 23 




INX 


H 




046A 1A 




LDAX 


D 




046B BE 




GMP 


M 


? SETS FLAGS 
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046C C9 



RET 
PAGE 



046D E305 
046F 32CE00 
0472 3E02 
0474 32FA0A 
0477 219B03 
047A 22BC00 

047D+1810 



047P 3E01 
0481 32CD00 
0484 3E04 
0486 32FA0A 
0489 219C0E 
048C 22BC00 



048F 3E05 
0491 32020B 
0494 3EFP 
0496 32030B 



; WRITEHST PERFORMS THE PHYSICAL WRITE TO THE 


HOST 


DISK 


,° READHS1 


' PERFOEMS THE PHYSICAL 


READ 


FRCM 


THE 


HOST 


DISK 


; HSTDSK 


= HOST DISK NUMBER 












; HSTTRK 


= HOST TRACK NUMBER 












; HSTSEC 


= HOST SECTOR NUMBER 












RETURN 


ERROR FLAG IN ERFLAG 













WRITEHST: 

MVI 

STA 

MVI 

STA 

LXI 

SHLD 

JR 



READHST; 



HRWO; 



MVI 
STA 
MVI 
STA 
LXI 
SHLD 



MVI 
STA 
MVI 
STA 



HFW1: 



A,005H 

EMAS3F 

A,002H 

CMD 

H,HSTBUF-1 

EMASA 

HRWO 

018H f HR20-$-l 



A r 001H 

EMAS3F 

A,004H 

CMD 

H,HSTBUF 

EMASA 



A, 05 

T$RETRIES 
A,0FFH 
HCME$TOGGLE 



0499 3AED0A 


IDA 


HSTSEC 


049C 32B100 


STA 


SECTNO 


049F 3AEA0A 


IDA 


HSTDSK 


04A2 CD5205 


CALL 


DSKSEL 


04A5 CDB305 


CALL 


POINT 


04A8 EB 


XCHS 




04A9 3EF0 


MVI 


A r 11110000B 


04AB A6 


ANA 


M 


04AC 77 


MOV 


M,A 


04AD E5 


PUSH 


H 


04AE CD3205 


CALL 


SETHED 


04B1 7D 


MOV 


A r L 


04B2 32AD00 


STA 


TRAKNO 



;SETUP DMA FOR WRITE . 

;WRITE COMMAND 

;SAVE FOR LATER 

;WRITE MUST WRITE CONTROL 



FAKE JR INSTRUCTION 



SETUP DMA FOR READ 

READ COMMAND 

SAVE FOR LATER 

READ ONLY DATA BYTES 



?FIVE RETRIES 

; SETUP TEMPORARY RETRIES COUNTER 
?INIT TOGGLE SO THAT NO HOME 
^ALTERNATE RETRIES WILL BE ATTEMPTED 
; OTHER RETRIES WILL BE DONE 



;HOST SECTOR NUMBER 

;SAVE SECTOR NUMBER 

; PICKUP DRIVE ID FOR SELECT DRIVE 

; SELECT CORRECT DRIVE FOR INDEX 

;POINT TO TRACK REGISTER SAVE 

; POINT TO SELECT MASK 

;TO REMOVE CURRENT HEAD SELECT 



;SAVE MASK ADDRESS 

;CCMPUTE CORRECT HEAD NUMBER 

; TRACK NUMBER AFTER HEAD CALCUL 
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04B5 El 




POP 


H ; 


RESTORE MASK ADDRESS 


04B6 3AAE00 




LDA 


HEADNO ; 


TO OR IN NEW HEAD NUMBER 


04B9 B6 




QRA 


M ; 




04BA 77 




MOV 


M,A ; 


SAVE NEW DRIVE/HEAD SELECT 


04BB E67F 




ANI 


07FH ; 


MASK OFF LARGE DRIVE FLAG 


04BD D320 




OUT 


020H ; 


WRITE IT TO SELECT NEW HEAD 


04BF 0E01 




MVI 


C,l J 


DELAY FOR 1 MILLISECOND 


04C1 CD8207 


HEW2: 


CALL 


DELAY ; 




04C4 CDB305 




CALL 


POINT j 


IS A SEEK NECESSARY ?? 


04C7 3AAD00 




LDA 


TRAKNO i 


CHECK 


04CA BE 




CMP 


M j 


WELL ?? 






JRZ 


HFW5 j 


NO SEEK NECESSARY. . . 


04CB+2814 


HFW3s 


DB 


028H,HFW5-$-l j 


FAKE JRZ INSTRUCTION 


04CD D322 




OUT 


022H -, 


WRITE NEW TRACK NUMBER 


04CF 46 




MOV 


B,M j 


•SAVE TEMPORARILY 


04D0 77 




MOV 


M,A 


•UPDATE TRACK REGISTER SAVE 


04D1 78 




MOV 


A,B , 


-OLD TRACK NUMBER 


04D2 D321 




our 


021H 


'TO OLD TRACK REGISTER 


04D4 3E10 




MVI 


A, 01 OH j 


•SEEK COMMAND 


04D6 CD2107 


« 


CALL 


INTFIX i 


CLEAR ANY PENDING INTERRUP 
•AND ISSUE CCMMAND 


04D9 CD1707 


HRW4: 


CALL 


WAITO i 


WAIT FOR I/O 


04DC 0E14 




MVI 


C,20 


;DEIAY AFTER SEEK FOR 20 MILLI 


04DE CD8207 


HFW5: 


CALL 


DELAY 




04E1 3AB100 




LDA 


SECINO 


?SET SECTOR 


04E4 D321 


HRW6; 


OUT 


021H 


' 


04E6 21BA00 




LXI 


H r EMASl 


?SETUP EMA FOR HARD DISK I/O 


04E9 010006 




LXI 
OUTIR 


B,0600H 




04EC+EDB3 




DB 


05DH r 0B3H 


. FAKE OTIR INSTRUCTION 


04EE 21C0OO 




LXI 


H,EMAS2H 




04P1 010006 




LXI 
OUTIR 


B r 0600H 




04F4+EDB3 




DB 


OEDH f 0B3H 


\ FAKE OTIR INSTRUCTION 


04F6 21CA00 




LXI 


H r EMAS3 




04F9 010007 




LXI 
OUTIR 


B,0700H 




04FC+EDB3 




DB 


OEDH r 0B3H 


\. FAKE OTIR INSTRUCTION 


04FE 3AFA0A 




LDA 


CMD 


;PICKUP I/P CCMMAND 


050A CD2107 


? 


CALL 


INTFIX 


;CLEAR ANY PENDING INTERRUPT 
;AND ISSUE CCMMAND 


0504 CD1707 


HHtf7: 


CALL 


WAITO 


;WAIT FOR COMPLETION 


0507 3E5D 




MVI 


1,01011101B 


;SETUP STATUS AND MASK 


0509 32FB0A 




STA 


MASK 


;SAVE FOR STATUS CHECK 
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050C CDAE06 
050F C8 


CALL 
RZ 


CHECK$STAT 


0510 3A030B 

0513 2F 

0514 32030B 


LDA 
CMA 
STA 


HCME$TOGGLE 
HCME$TOGGLE 


0517+1880 


JR 
DB 
ENDIF 


HRW1 
018H,HFWl-$-l 



;CHECK STATUS FRCM I/O 
;OK ?? 



;CHANGE TOGGLE SO THAT HOME 



;RETRY I/O 

. — - FAKE JR INSTRUCTION - 



PAGE 



DOUBLE SIDED TRACK REGISTER UPDATE ROUTINE 





DBL$UPDATE: 




0519 3AB600 


LDA 


MPARMS 


051C E601 


ANI 


1 


051E C8 


RZ 


i 


051F 3AAC00 


LDA 


DISKNO 


0522 FE04 


CPI 


004H 


0524 DO 


RNC 


7 


0525 E602 


ANI 


00000010B ; 


0527 7E 


MOV 


A,M 




JRZ 


DBL$LOW 


0528+2804 


CB 


028H,EBL$LCW-$-l 


052A 2B 


DCX 


H 


052B 2B 


DCX 


H 




JR 


DBL$SAVE ; 


052C+1802 


DB 
DBL$LOW; 


018H,EBL$SAVE-$-l 


052E 23 


INX 


H ; 


052F 23 


INX 
DBL$SAVE: 


H 


0530 77 


MOV 


M,A 


0531 C9 


RET 


9 
i 



CHECK FOR DOUBLE SIDED DRIVE 
IS FLAG SET 
NO - SO RETURN 
CURRENT DISK DRIVE 
IS IT A FLOPPY 
NO, RETURN WITHOUT UPDATE 
IS THIS DRIVE 2 OR 3 ?? 
WE WERE CALLED WITH (HL) P 
IT MUST BE DRIVE ZRO OR O 

. fake JRZ INSTR 

BACKUP TO OTHER SIDE POINT 



FAKE JR INSTR 



;BUMP UP TO DRIVE TWO OR THREE 



;UPDATE OTHER SIDE REGISTER 



PAGE 



ROUTINE TO COMPUTE HEAD NUMBER FRCM TRACK NUMBER 
TRACK NUMBER IS IN HL ON ENTRY 



IF 



HARDSK 



SETHED: 
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0532 2AEBQA 




LHLD 


HSTTRK 


0535 E680 




ANI 


80H 


0537 7D 




MOV 


A r L 






JRZ 


SETH14 


0538+2806 




OB 


028H,SETH14-$-l 


053A E607 




ANI 


00000111B 


053C 0E03 




MVI 


C,3 






JR 


SETDVD 


053E+1804 




DB 


018H,SETDVD-$-l 


0540 E603 


SETH14; 


ANI 


00000011B 


0542 0E02 




MVI 


C,2 


0544 32AE00 


SETDVDs 


STA 


HEADNO 


0547 B7 


SHDls 


ORA 


A 


0548 7C 




MOV 


A r H 


0549 IF 




RAR 




054A 67 




MOV 


H,A 


054B 7D 




MOV 


A,L 


054C IF 




RAR 




054D 6F 




MOV 


L,A 


054E GD 




DCR 


C 






JRNZ 


SHD1 


054F+20F6 




DB 


020H,SHDl-$-l 


0551 C9 




RET 
ENDIF 





CP/M TRACK NUMBER (0-800) 

CHECK FOR LARGE DRIVE 
LOW ORDER 
SMALL DRIVE 

FAKE JRZ INSTRUCTION 

GET TRACK MOD 8 (HEAD NUMBER 
LIMIT LOOP FOR DIVIDE BY EIGHT 

FAKE JR INSTRUCTION - 

GET TRACK MOD 4 (HEAD NUMB 
LIMIT LOOP FOR DIVIDE BY FIVE 
SAVE AS HEAD NUMBER 

ENSURE CARRY IS ZERO 
FOR SHIFT 
ONE BIT 

LOW ORDER 

CARRY PARTICIPATES FROM HIBYTE 

END OF DIVIDE YET ?? 
NO, CONTINUE 

FAKE JRNZ INSTRUCTION 

RETURN TO CALLER, TRACK IN 



PAGE 



DISK DRIVE SELECT ROUTINE 

ON ENTRY, THE ACCUMULATOR CONTAINS THE DRIVE 
RETURNS CARRY SET FOR HARD DISK SELECTED 
RETURNS CARRY RESET FOR FLOPPY DISK SELECTED 



0552 FE04 
0554+3045 



DSKSELs 



CPI 004H ;IS IT HARD DISK ?? 
JRNC SELHARD ;YES, GO PROCESS.... 
DB 030H,SELHARD-$-l ; FAKE JRNC 



INST 



SELSGFT: 



0556 21AC00 
0559 BE 

055A+2819 
055C 77 



LXI 

CMP 

JRZ 

DB 

MOV 



H,DISKNO 

M 

SLS3 

028H,SLS3-$-l 

M,A 



CURRENT DRIVE NUMBER 

SAME DRIVE AS LAST TIME ?? 

YES, DONT BOTHER WITH UNLOCK 

FAKE JRZ INSTRUCTION 

UPDATE WITH CURRENT DRIVE 



WE WILL NOW FORCE THE HEAD TO UNLOAD PRIOR TO THE SEEK 
TO ENSURE THAT WHEN WE RETURN TO THIS DISK WE WILL 
LOAD AND WAIT FOR THE HEAD TO SETTLE. 
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SLS1: 



055D DB04 


IN 


004H 


055F IF 


RAR 






JRC 


SLS1 


0560+38FB 


DB 


038H,SLSl-$-l 


0562 DB05 


IN 


005H 


0564 D307 


our 


007H 


0566 3E12 


MVI 


A r 012H 


0568 CD6307 


CALL 


FINTFIX 


056B CD3A07 SLS2: CALL 


FPYWAIT 


056E 3AFC0A 


LDA 


STATUS 


0571 E698 


ANI 


10011000B 




JRNZ 


SLSERR 


0573+2020 


DB 


020H,SLS344-$-l 



ENSURE FLOPPY PORT NOT BUSY 



FAKE JRC INSTRUCTION 

READ THE TRACK REGISTER 
ENSURE WE DONT MOVE THE HEAD 

SEEK AND UNLOAD HEAD 

CLEAR ANY PENDING INTERRUPT 

AND ISSUE COMMAND 
WAIT HERE FOR INTERRUPT 
HOW DID THE I/O GO? 

CHECK 
EXIT IF ERROR 

FAKE JRNZ INSTRUCTION 



WE WILL NOW LOAD THE SELECT MASK AND SELECT THE DRIVE 
EVEN IF ITS THE SAME DRIVE BECAUSE THE DENSITY MAY 
HAVE CHANGED* 



SLS3; 



0575 CDB305 


CALL 


POINT j 


'POINT TO TRACK SAVE AREA 


0578 EB 


XCHG 




POINT TO SELECT MASK 


0579 3AAD00 


LDA 


TRAKNO ', 


•NEXT TRACK FOR I/O 


057C FE02 


CPI 


002H i 


-IS IT TRACK ZERO OR ONE 


057E 3EFF 


MVI 


A r llllllllB i 


•ASSUME NO. . . . 




JRNC 


SLS4 j 


VERIFY ASSUMPTION 


0580+3002 


DB 


030H,SLS4-$-l j 


FAKE JRNC INSTRUCTION 


0582 3EFE 


MVI 
SLS4: 


A,11111110B 


•FORCE SINGLE DENSITY FOR 


0584 A6 


ANA 


M , 


?LQAD MASK AND CORRECT IF NECESSARY 


0585 D308 


OUT 


008H 


; SELECT IT 


0587 DB04 


IN 


004H 


?IS DRIVE READY? 


0589 17 


RAL 








JRC 


SLSERR 


?IF NOT... BRANCH 


058A+3809 


DB 


038H,SLSERR-$-l ; 


FAKE JRC INSTRUCTION 


058C EB 


XCHG 




^RESTORE TRACK REGISTER ADDRESS 


058D 7E 


MOV 


A r M , 


fPICK UP TRACK NUMBER 


058E D305 


OUT 


005H 


?GIVE IT TO CONTROLLER 


0590 AF 


XRA 


A 


^ENSURE CARRY IS RESET 


0591 32F60A 


STA 


ERFLAG 


?AL50 ZERO ERROR INDICATOR 


0594 C9 


RET 






0595 AF 


SLSERR: XRA 


A 


j ENSURE CARRY IS RESET 


0596 3C 


INR 


A 


; SET TO 1 FOR ERROR FLAG 


0597 32F60A 


STA 


ERFLAG 


?SHOW ERROR 


059A C9 


RET 
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THIS ROUTINE SETS UP THE HARD DISK BY SELECTING THE 
ERIVE AND RELOADING THE HEAD AND TRACK REGISTERS IN 
HARD DISK CONTROLLER READY FOR I/O LATER. 





SELHARD: 






IF 


HARGSK 


059B 21AC00 


LXI 


H,DISKNO 


059E BE 


CMP 


M 


059F C8 


RZ 




05A0 77 


MOV 
SLH1: 


M,A 


05A1 CEB305 


CALL 


POINT 


05A4 EB 


XCHG 




05A5 7E 


MOV 


A,M 


05A6 D320 


our 


020H 


05A8 EB 


XCHG 




05A9 7E 


MOV 


A,M 


05AA D322 


OUT 


022H 


05AC 0E14 


MVI 


C,20 


05AE CD8207 


CALL 


DEIAY 


05B1 37 


STC 
ENDIF 




05B2 C9 


RET 





CURRENT CRIVE SELECTED 
SAME ?? 

YES, NO NEW SELECT NECESSARY 
UPDATE DISKNO 



TRACK SAVE REGISTER 

POINT TO SELECT MASK 

LOAD DRIVE/HEAD VALUE 

WRITE IT TO SELECT PORT 

REGAIN ADDRESS OF TRACK REGSTR 

LOAD OLD TRACK NUMBER 

WRITE IT TO OLD TRACK REGISTER 

DELAY FOR 20 MILLISECONDS 

SET CARRY TO SHCW HARD DISK 

RETURN TO CALLER 



PAGE 

















t 
t 


SUBROUTINE TO POINT TO CURRENT TRACK REGISTER SAVE 




t 

POINT: 










05B3 2AAC00 




LHLD 


DISKNO 




;PICKUP CURRENT DISK 


05B6 7D 




MOV 


A,L 






05B7 2600 




MVI 


H,0 




j RESET HIGH ORDER HALF 


05B9 117000 




LXI 


D,TRK0 




;LQAD TRACK POINTER 


05BC 19 




DAD 


D 




; POINT TO CURRENT TRACK PTR 


05BD 54 




MOV 


D,H 




; DE = TRACK 


05BE 5D 




MOV 


E r L 






05BF 01X00 




LXI 


B f 12 






05C2 09 




DAD 
IF 


B 
HARDSK 




; HL » SELECT 


05C3 FE04 




CPI 


4 










JRC 


FNTFN 




'; FLOPPY DISK 


05C5+380D 




DB 


038H,FNTFN-$- 


-1 


. FAKE JRC INSTRUCTION 


F5C7 3E10 




MVI 


A,10H 






05C9 A6 




ANA 


M 




; CHECK DRIVE SELECT 






JRZ 


FNTH2 




; MUST BE DRIVE # 2 


05CA+2805 




DB 


028H,I*ITH2-$- 


-1 


.. FAKE JRZ INSTRUCTION 
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05CC 11B800 




LXI 
JR 


D,HTK1 

BTTFN ; 


POINT TO DRIVE 1 


05CF+1803 




OB 


018H,f*lTFN-$-l ;- 


FAKE JR INSTRUCTION - 


05D1 11B900 


PNTH2: 


LXI 
END IP 


D,HTK2 ; 


POINT TO DRIVE 2 


05D4 EB 


ENTFN: 


XCHG 


• 


SWITCH 


05D5 C9 




RET 


r 


HL - TRACK DE = SELECT 



ROUTINE TO TRANSLATE SECTOR NUMBER 





SECTRAN 


; 




05D6 EB 




XCHG 




05D7 7C 




MOV 


A,H 


05D8 B5 




ORA 


L 






JRZ 


STRN2 


05D9+2807 


STRNls 


EB 


028H r STRN2-$-l 


05DB 0600 




MVI 


B,000H 


05DD 09 




DAD 


B 


05DE 6E 




MOV 


L,M 


05DF 2600 




MVI 


H,000H 


05E1 C9 


STRN2: 


RET 




05E2 09 




DAD 


B 


05E3 C9 




RET 





TABLE ADDRESS IS IN DE (NO 
IS THERE A TABLE ADDRESS ? 

NO, JUST RETURN ENTERED QUEUE 
— — FAKE JRZ INSTRUCTION 



jENSURE OK FCR SINGLE BYTE 
;ADD SECTOR NUMBER 
?LOAD TRANSLATED VALUE 

• 

?NEW VALUE RETURNED IN HL 



?RETURN SAME VALUE AS ENTERED 



ROUTINES TO DO FLOPPY I/O 





READSQFT: 






05E4 3E9F 


MVI 


A,09FH ; 


MASK FCR READ STATUS 


05E6 32FB0A 


STA 


MASK j 




05E9 3E01 


MVI 


A r 001H ; 


-SETUP DMA FOR READ 


05EB 32CE00 


STA 


EMAS3F 




05EE 3E8C 


MVI 


A f 08CH , 


•READ COMMAND 




JR 


SEW1 




05F0+180F 


EB 
WRITESQFT: 


018H,SFWl-$-l j 


FAKE JR INSTRUCTION - 


05F2 3EFF 


MVI 


A,0FFH 


?MASK FCR WRITE STATUS 


05F4 32FB0A 


STA 


MASK 




05F7 CD6B0E 


CALL 


MVDTB 




05FA 3E05 


MVI 


A,005H 


? SETUP EMA FOR WRITE 


05FC 32CE00 


STA 


EMAS3F 




05FF 3EAC 


MVI 


A f 0ACH 


?WRITE COMMAND 
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SFW1: 



0601 
0604 
0607 
06QA 
060D 
0610 
0613 
0614 



32FA0A 

211D13 

22BC00 

3AE60A 

CD5205 

3AF6QA 

B7 

CO 



0615 3EQA 
0617 32020B 
061A AF 
061B 32030B 



061E EB08 
0620 E602 

0622+201F 
0624 DB05 
0626 D307 
0628 3E1A 
062A CD6307 

062D CD3A07 
0630 3AFCQA 
0633 E698 

0635+2044 

0637 0E10 
0639 CD8207 
063C CEB305 
063F 36FE 

0641+1807 



0643 21FAQA 
0646 3EFB 

0648 A6 

0649 77 



064A CEB305 
064D 3AE70A 
0650 32AD00 
0653 BE 

0654+281A 

0656 77 

0657 D307 



STA 

LXI 

SHLD 

LDA 

CALL 

LEA' 

ORA 

RNZ 



SRW2: 



MVI 
STA 
XRA 

STA 

LCAD$HEAD: 
IN 
ANI 
JRNZ 
DB 
IN 

our 

MVI 
CALL 

LDHls CALL 
LDA 
ANI 
JRNZ 
CB 

MVI 

CALL 

CALL 

MVI 

JR 

DB 

REMOVE$LDs 
LXI 
MVI 
ANA 
MOV 



TRKTST: 



CALL 

LEA 

STA 

CMP 

JRZ 

DB 

MOV 

OUT 



CMD 

H,FPYBUF 

EMASA 

NEWDSK 

DSKSEL 

ERFLAG 

A 



A f 10 

T$RETRIES 
A 
HCME$TOGGLE 



SELECT DRIVE FOR I/O 
CHECK FOR SELECT ERROR 

RETURN IF ERROR 



;SET NUMBER OF TRIALS 
;SAVE FOR RETRY ROUTINE 

;FQRCE HOME PRIOR TO EACH RETRY 



008H 

00000010B 

REMOVE$LD 

020H,REMOVE$LD-$ 

005H 

007H 

A,01AH 

FINTFIX 

FPYWAIT 

STATUS 

10011000B 

CHECKIT 

020H,CHECKIT-$-l 

C,16 

DELAY 

POINT 

M,254 

TRKTST 

018H,TRKTST-$-l 



H,CMD 

A,1111101IB 

M 

M,A 



POINT 

NEWTRK 

TRAKNO 

M 

FSECSET 

028H,FSECSET-$-l 

M f A 

007H 



IS HEAD LOADED ?? 

CHECK ITe c . • 

YES, ITS LOADED, DCNT RELOAD 

•1 ; FAKE JRNZ INST 

DUMMY SEEK TO START HEAD LOAD 

KEEP IT SHORT.... 

START HEAD LOADING 

CLEAR ANY PENDING INTERRUPT 

AND ISSUE COMMAND 

WAIT FOR I/O TO COMPLETE 

HOW DID IT GO? 

CHECK 

DO NOT GO CN IF ERROR 

. FAKE JRNZ INS 

WAIT HERE FOR 16 MS 
CALL WAIT ROUTINE 
REESTABLISH TRACK REGISTER 
ENSURE FURTHER SEEK AND DELAY 

FAKE JR INSTRUCTION - 



POINT TO I/O COMMAND 
REMOVE HEAD LOAD BIT 
DO IT 

SAVE IT BACK INTO CMD 



RESTORE TRACK REGISTER POINTER 

GET NEW TRACK NUMBER 

SAVE IN CCMMCN PLACE 

SAME AS LAST TIME ?? 

YES, DCNT BOTHER WITH SEEK 

. FAKE JRZ INST 

;SAVE IT 

;ALSO SEND IT TO CONTROLLER 
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0659 CD1905 




CALL 


DBL$UPDATE 




FLOPPY$SEEK: 




065C 3E1A 




MVI 


A f 01AH 


065E CD6307 


• 


CALL 


FINTFIX 


0661 CD3A07 


FPSl: 


CALL 


FPSWAIT 


0664 3AFC0A 




LDA 


STATUS 


0667 E698 




ANI 


10011000B 






JRNZ 


CHECKIT 


0669+2010 




DB 


020H f CHECK: 


066B 0E10 




MVI 


C,16 


066D CD8207 




CALL 


DELAY 




FSECSET 


. 




0670 3AE90A 




LDA 


NEWSEC 


0673 33100 




STA 


SECINO 


0676 D306 




OUT 


006H 


0678 CD8706 




CALL 


FLOPPYIO 




CHECKIT 


e 




067B CEAE06 




CALL 


CHECK$STAT 


067E 3AF6QA 




LDA 


ERFLAG 


0681 CC7E0E 




CZ 


MVDFB 


0684 C8 




RZ 








JR 


LOAD$HEAD 


0685+1897 




EB 


018H,LQAD$1 



;DOUBLE SIDED SUPPORT 



;SEEK COMMAND WITH HEAD LOAD 

•CLEAR ANY PENDING INTERRUPT 

;AND ISSUE COMMAND 

;WAIT FOR I/O TO CCMPLETE 

;HOW DID IT GO? 

;CHECK 

;DO NOT GO CN IF ERROR 

. FAKE JRNZ INS 

?SET FOR 16 MS DELAY 



;SET SECTOR 

;SAVE IN CCMMCN PLACE 



?DO I/O 

;CHECK STATUS OF I/O 

; SETUP TO RETURN TO BDOS 

,• EITHER OK OR PERMANENT ERROR 
;ERROR, JUST RETRY THIS SAME 
!-l ; FAKE JR INSTR 



PAGE 



9 .Nil ..-...,... „ , 

• 

; THIS IS THE ROUTINE THAT DOES THE FLOPPY DISK I/O 


t 

FLOPPYIO: 






IF 


NOT EMA 




LXI 


H r 066H 


;MOVE DATA FRCM 066H TO SAVE 


LXI 


D,SAVE1 




LXI 


B f 004H 




LDIR 




•MOVE IT 


LXI 


H f iMIRTN 


;SET NMI ROUTINE TO NMI ADDRESS 


LXI 


D r 066H 




LXI 


B f 004H 




LDIR 




;MOVE IT 


LDA 


CMD 


;IS IT A WRITE ?? 


ANI 


20H 




JZ 


FRD 


;NO, LEAVE INI CMD IN LOW MEMRY 


LXI 


H,067H 


; POINT TO CCMMAND AREA 


MVI 


M r QA3H 


;MAKE IT AN OTI CMD. . . . 


FRD EQU 


$ 


/LABEL 


ENDIF 
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IF 


EMA 




0687 21BA00 


LXI 


H,EMAS1 j 


'INITIALIZE EMA 


068A 010006 


LXI 


B,0600H 






OUTIR 




?WRITE TO EMA 


068D+EDB3 


DB 


0EDH,0B3H \ 


- — FAKE OTIR INSTRUCTION 


068F 21C600 


LXI 


H,EMAS2F 




0692 010004 


LXI 


B,0400H 






OUTIR 




?WRITE TO EMA 


0695+EDB3 


EB 


0EDH,0B3H \ 


\ FAKE OTIR INSTRUCTION 


0697 21CA00 


LXI 


H,EMAS3 




069A 010007 


LXI 


B,0700H 






OUTIR 




•WRITE TO EMA 


069D+EDB3 


BO 
ENDIF 


0EDH,0B3H 


— — FAKE OTIR INSTRUCTION 


069F 0E07 


MVI 


C,007H 


?PORT ADDRESS FOR I/O 


06A1 211D13 


LXI 


H,FPYBUF 


?EMA ADDRESS 


06A4 3AFA0A 


LDA 


CMD 


?I/0 COMMAND 


06A7 CD6307 


CALL 


FINTFIX 


?CLEAR ANY PENDING INTERRUPT 


o 

9 






?AND ISSUE COMMAND 


06AA CD3A07 JWT1: CALL 


FPYWAIT 


?WAIT HERE FOR I/O TO COMPLETE 




IF 


NOT EMA 






LXI 


H,SAVE1 


?SETUP TO REPLACE DATA 




LXI 


D,066H 


?COPIED FRCM mi LOCATION 




LXI 


B,004H 


r 




LDIR 




?MOVE IT.... 




ENDIF 







06AD C9 



RET 



; RETURN, I/O COMPLETED 



WE WILL NOW CHECK THE STATUS OF TOE I/O OPERATION 
RETURN WITH CONDITION CODE ZERO = NO RETRY 
RETURN WITH CONDITION CODE NCN ZERO = RETRY 





CHECK$STAT: 




06AE 21F60A 




LXI 


H,ERFLAG 


06B1 3600 




MVI 


M,000H 


06B3 21FC0A 




LXI 


H, STATUS 


06B6 3AFB0A 




LDA 


MASK 


06B9 A6 




ANA 


M 


06BA 77 




MOV 


M,A 


06BB C8 


CHKSO: 


RZ 




06BC CEEE02 




CALL 


RETMOD 


06BF FE03 




CPI 


003H 


06C1 21FC0A 




LXI 


H f STATUS 


06C4 7E 




MOV 


A r M 






JRNC 


CHKS2 



POINT TO ERROR INDICATOR 

ASSIME OK 

CHECK STATUS 

MASK FOR UNWANTED BIT REMOVAL 

SAVE CLEANED STATUS 
OK f SO RETURN 



HARD DISK ?? 

RELOAD STATUS BYTE 

YES, CHECK FOR DRIVE REAEY 
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06C5+3006 


EB 
CHKS1: 


030H,CHKS2-$-l 


06C7 FE80 


CPI 


080H 




JRZ 


BADIO 


06C9f283E 


OB 


028H,BADIO-$-l 




JR 


CHKS3 


06CB+1819 


OB 
CHKS2s 


018H,CHKS3-$-l 


06CD PEOO 


CPI 


000H 




JRZ 


BADIO 


06CF+2837 


OB 


028H,BADIO-$-l 


06D1 E640 


ANI 


01000000B 




JRZ 


CHKS3 


06D3+2811 


DB 


028H,CHKS3-$-l 


06D5 CDB305 


CALL 


POINT 


06D8 EB 


XCHG 




06D9 7E 


MOV 


A,M 


06DA F640 


CRI 


01000000B 


06DC D320 


OUT 


020H 


06DE 7E 


MOV 


A f M 


06DF D320 


OUT 


020H 


06E1 0E14 


MVI 


C,20 


06E3 CD8207 


CALL 
CHKS3s 


DELAY 


06E6 3A030B 


LDA 


HCME$TOGGLE 


06E9 B7 


ORA 


A 




JRNZ 


CHKS4 


06EA+200B 


DB 


020H,CHKS4-$-l 


06EC 3AFCQA 


LDA 


STATUS 


06EF F5 


PUSH 


PSW 


06F0 CD1A03 


CALL 


HCME 


06F3 Fl 


POP 


PSW 


06F4 32FC0A 


STA 
CHKS4: 


STATUS 


06F7 119400 


LXI 


D,TCOT 


06FA CD0F07 


CALL 


ADDERRORS 


06FD 21020B 


LXI 


H,T$RETRIES 


0700 35 


OCR 


M 


0701 CO 


RNZ 




0702 11A000 


LXI 


D,PCNT 


0705 CD0F07 


CALL 
BADIO: 


ADDERRORS 


0708 21F60A 


LXI 


H,ERFLAG 


070B 3601 


MVI 


M,001H 


070D AF 


XRA 


A 


070E C9 


RET 





FAKE JRNC INSTRUCTION 



IS FLOPPY DISK NOT READY ? 
YES, DGNT BOTHER WITH RETRY 

FAKE JRZ INSTRUCTION 

GO TO BAD MESSAGE ROUTINE 
• FAKE JR INSTRUCTION - 



IS HARD DISK NOT READY ?? 
YES, BYPASS ERROR MESSAGE 

FAKE JRZ INSTRUCTION 

IS IT WRITE FAULT ?? 

NO, CONTINUE ON 

FAKE JRZ INSTRUCTION 

POINT TO TRACK REGISTER 
POINT TO SELECT MASK 

TURN ON WRITE FAULT CLEAR 

RESET CLEAR 

DELAY JUST TO BE SAFE 



;IS A HCME NEEDED ON THIS RETRY 

• 

; FAKE JRNZ INSTRUCTICN 

;SAVE STATUS OVER HCME 
•RESET DEVICE TO HCME 
;SAVE FOR ERROR MESSAGE 

;BUMP TEMP ERROR COUNT 

• 

;PICKUP RETRY COUNT 

; DECREMENT COUNT OF RETRIES 

» 

;BIMP PERMANENT ERROR COUNT 



SET PERMANENT ERROR 

DO IT.,.. 

RESET TO PRECLUDE RETRIES 

RETURN TO CALLER 



ADDERRORS : 
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070F 2AAC00 


LHLD 


DISKNO 


0712 2600 


MVI 


H,000H 


0714 19 


DAD 


D 


0715 34 


INR 


M 


0716 C9 


RET 





PAGE 



BUMP COUNT OF DISK ERRORS 
POINT TO ERROR REGISTER 



THIS IS HARD DISK WAIT ENTRY 



WAITO: 



0720 C9 



SAVE RETRY COUNT 
FUNCTION FLAG WAIT 
DEVICE IS HARD DISK 

RESTORE RETRY COUNTER IN 



READ OR WRITE IS OK, ACCIMULATOR CONTAINS ZERO 
RET 



0717 C5 


PUSH 


B 


0718 0E84 


MVI 


C-FLAGWT 


071A 1E05 


MVI 


E,HDFLAG 


071C CD100B 


CALL 


XDOS 


071F CI 


POP 


B 



THE FOLLOWING CODE GUARANTEES THAT HARD DISK FLAG 
INTERRUPT AS IT APPEARS THAT WE OCCASIONALLY GET 
FLAG SET AS A RETRY OF AN INTERRUPT FRCM THE HARD 
DISK, WHEN WE DO NOT EXPECT IT. 



INTFIX: 



0721 F5 

0722 C5 

0723 D5 

0724 E5 

0725 0E85 
0727 1E05 
0729 CD100B 



072C 0E84 
072E 1E05 
0730 CD100B' 

0733 El 

0734 Dl 



PUSH 
PUSH 
PUSH 
PUSH 

MVI 
MVI 
CALL 



MVI 
MVI 
CALL 

POP 
POP 



PSW 
B 
D 
H 

C,FLAGST 
E f HDFLAG 
XDOS 



CFLAGWT 
E,HDFLAG 
XDOS 

H 
D 



EITHER FLAG 5 WILL BE SET 
IT IS ALREADY SET - IN WHICH 
THIS REQUEST WILL BE IGNORED 



;NCW CLEAR THE FLAG 
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0735 CI 

0736 Fl 

0737 D323 
0739 C9 



POP 
POP 

OUT 

RET 

PAGE 



B 
PSW 

023H 



/RESTORE REGISTERS 

/ISSUE CCMMAND TO HARD DISK 



THIS IS FLOPPY DISK WAIT ENTRY 





FPYWAIT: 






073A C5 


PUSH 


B /SAVE RETRY COUNT 


073B E5 


PUSH 


H 




073C 0E84 


MVI 


C,FLAGWT 


; FUNCTICN IS FLAG WAIT 


073E 1E06 


MVI 


E f FPYFLAG 


; WAIT FOR FLOPPY 


0740 CD100B 


CALL 


XDOS 




0743 F5 


PUSH 


PSW 




0744 DAD00D 


LDA 


FPYTIME 


•DID WD1791 GO TO SLEEP? 


0747 B7 


ORA 


A 


• 
9 




JRNZ 


NOFPYRST 


/IF STILL AWAKE, SKIP RESET 


0748+2015 


DB 


020H,NQFPYRST-$~1 ; FAKE JRNZ INS 


074A DB09 


IN 


009H 


;GET CURRENT BANK NUMBER 


074C E618 


ANI 


00011000B 


/REMOVE OTHER INTO 


074E D309 


OUT 


009H 


/RESET WD1791 


0750 0E01 


MVI 


C,l 


/DELAY 1 MILLISEC 


0752 CD8207 


CALL 


DELAY 




0755 F602 


ORI 


00000010B 


/END RESET 


0757 D309 


OUT 


009H 




0759 3AE60A 


LDA 


NEWDSK 


/MAKE SURE CURRENT DISK AND 


075C 32AC00 


STA 
NOFPYRST: 


DISKNO 


/ THE SAME 


075F Fl 


POP 


PSW 




0760 El 


POP 


H 




0761 CI 


POP 


B 


/RESTORE ENTRY COUNT IN <C> 


0762 C9 


RET 







THE FOLLOWING CCDE GUARANTEES THAT FLOPPY DISK FLAG 





FINTFIX 


: 




0763 F5 




PUSH 


PSW 


0764 C5 




PUSH 


B 


0765 D5 




PUSH 


D 


0766 E5 




PUSH 


H 
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0767 0E85 
0769 1E06 
076B CDIOOB 


MVI 
MVI 
CALL 


CFLAGST 

E,FFYFLAG 

XDOS 


076E 0E84 
0770 1E06 
0772 CDIOOB 


MVI 
MVI 
CALL 


C,FLAGWT 

E,FPYFLAG 

XDOS 


0775 
0778 


210301 
22D00D 


LXI 
SHLD 


H,00103H 
FPYTIME 


077B El 
077C Dl 
077D CI 
077E Fl 


POP 
POP 
POP 
POP 


H 
D 
B 
PSW 


077F 


D304 


OUT 


004H 


0781 C9 


RET 






• 


if 
FPYTIME: 

EW 


not mpm20 







FPYTCNT: 

EW 
endif 






;SET TIME OUT INDICATOR CN 
; TIME TO BE BETWEEN 2 AND 3 



; ISSUE COMMAND TO FLOPPY DISK 



PAGE 



THIS IS THE DELAY ROUTINE. IT WILL LOOP HERE FOR THE 
NUMBER OF MILLISECONDS SPECIFIED IN REGISTER C. 





/ 










DELAY: 








0782 0664 


DELI: 


MVI 


B,100 j 


FORCE DELAY FCR 1 MILLISEC 


0784 00 


DEL2: 


NOP 




•INSTRUCTIONS TO FILL IN TIME 


0785 29 




DAD 


H ! 




0786 29 




DAD 


H 




0787 05 




DCR 


B 


?AT ONE MILLISECOND YET ?? 


0788 C28407 




JNZ 


DEL2 


?NO, KEEP ON LOOPING 


078B OD 




DCR 


C 


?END OF REQUESTED INTERVAL 


078C C28207 




JNZ 


DELI 


? NO r KEEP ON 


078F C9 




RET 




^RETURN TO CALLER 



*********************************************** 

* NOTE:THE INITIALIZATION CODE WILL BE 

* OVERWRITTEN BY DIRBUF St FPYBUF 
*********************************************** 
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DIRBUF 



if 

EQU 

endif 



not mpm20 
$ 



DISK CONFIGURATION TABLE 



IF 



0790 


00000G0000DSCN0: 


DB 


0798 


1000000000 


DB 


07A0 


9090900000 


CB 


07A8 


0000000000 


DB 


07B0 


1000002000 


DB 


07B8 


0000000000 


DB 


07C0 


9090902000 


DB 


07C8 


909090A0A0 


DB 
ENDIF 



HARDSK 



00H, 00H, 00H r 00H f OOH, OOH, 00H r OOH 
10H r OOH, 00H f OOH, 00H f 00H f 10H, OOH 
90H, 90H, 90H, OOH, OOH, OOH, OOH, OOH 
OOH, OOH, OOH, OOH, OOH, OOH, OOH, OOH 
10H, OOH, OOH, 20H, OOH, OOH, 10H, 20H 
OOH, OOH, OOH, OOH, OOH, OOH, OOH, OOH 
90H, 90H, 90H, 20H, OOH, OOH, OOH, 20H 
90H, 90H, 90H, OAOH, OAOH, OAOH, OH, OH 



PIN C 



SET UP DISK CONFIGURATION 

[ THIS CODE EXECUTED ONLY ONCE ] 



07D0 217E00 


i 

SDCCNF; 


LXI 


H,SEL0+2 j 


•POINT TO DRIVE C: 


07D3 3AB600 




LDA 


MPARMS , 




07D6 E605 




ANI 


05H 


• TEST FOR FOUR FLOPPIES 


07D8 C3DE07 




JMP 


SDDBL 


\ YES SKIP THE ZAP 


07DB 77 




MOV 


M,A j 




07DC 23 




INX 


H 


• ZAP C: AND D: 


07DD 77 


SDDBL; 


MOV 


M,A 




07DE 118000 




LXI 

IF 


D,SEL0+4 j 
HARDSK 


-POINT TO DRIVE E: 


07E1 DB25 




IN 


025H 


;READ CONFIGURATION PORT 


07E3 E607 




ANI 


07H 


•STRIP OFF HIGH PART 


07E5 17 




RAL 






07E6 17 




RAL 






07E7 17 




RAL 






07E8 0600 




MVI 


B,0 




07EA 4F 




MOV 


C,A 


? POINT TO CONFIGURATION TAB 


07EB 219007 




LXI 


H,DSCNO 




07EE 09 




DAD 


B 


; INDEX TO RIGHT ENTRY 


07EF 0608 




MVI 


B,8 




07F1 7E 


SDL1: 


MOV 


A,M 


; CHANGE ALL SELECT MASKS 


07F2 12 




STAX 


D 




07F3 13 


SDOK: 


INX 


D 


} NEXT 
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07F4 23 
07F5+10FA 



SDL2s 



INX 

DJNZ 

DB 

ENDIP 

IF 

XCHG 

MVI 

XRA 

MOV 

INX 

DJNZ 

END IF 



H 

SDL1 

010H,SDLl-$-l 

NOT HARE6K 

B,8 

A 

M,A 

H 

SDL2 



DRIVE 
— FAKE DJNZ INSTRUCTION 



ZAP ALL HARD DRIVES 



07F7 C9 




RET 






07F8 » 


INITEND EQU 


$ 




07F8 E5 


XEIMGDs 


PUSH 


H 




07F9 79 




MOV 


Af Vo» 




07FA B7 




ORA 


A 




07FB 0E00 




MVI 
JRZ 


C,000H 
XETSEL 




07FD+2802 




DB 


028H f XETSEL-$- 


-1 


07FF 0E01 




MVI 


C001H 




0801 CD7802 


XETSELs 


CALL 


SETDEN 




0804 El 




POP 


H 




0805 6E 




MOV 


L,M 




0806 2600 




MVI 


H, 000H 




0808 7D 




MOV 


A,L 




0809 29 




DAD 


H 




08GA 29 




DAD 


H 




080B E5 




PUSH 


H 




080C 29 




DAD 


H 




080D Dl 




POP 


D 




080E 19 




DAD 


D 




080F 119101 




LXI 


D,MGDL0 




0812 19 




DAD 


D 




0813 EB 




XCHG 






0814 2AB200 




LHLD 


DPEPTR 




0817 EB 




XCHG 






0818 01X00 




LXI 
LDIR 


B,12 




081B+EDB0 




DB 


OEDH f 0B0H 




081D C9 




RET 







SAVE MODE BYTE ADDRESS 
SETUP FOR DENSITY CHANGE 

ASSUME SINGLE DENSITY MODE 

VERIFY ASSUMPTION 

— - FAKE JRZ INSTRUCTION 

SET FOR DOUBLE DENSITY MODE 

SET DENSITY BASED ON LOW BIT 

RESTORE 

PICKUP MODE AGAIN 

FOR SINGLE BYTE PRECISION 

SAVE MODE IN ACCUMULATOR F 

* 2 

* 4 
SAVE * 4 

* 8 
REGAIN * 4 

* 12 

FIRST MODEL DPE 

POINT TO THIS ONE 

SETUP TEMPORARILY AS DESTINATION 

ADDRESS OF CURRENTLY SELECT DRIVE 

SETUP TO ALTER 

LENGTH FOR MOVE 

DO MOVE 

FAKE LDIR INSTRUCTION 



RETURN TO CALLER 



PAGE 



THE FOLLOWING AREA CONTAINS THE DISK/WCRK SAVE AREA 
USED BY THE CBIOS IN THE NORMAL COURSE OF ACTIVITY. 
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(dirbuf-base)+128 



if mpm20 
;tempbuf equ 

else 
TEMPBUF EQU (DIRBUF-BASE)+256 

ORG TEMPBUF+((INITEND-BASE)/TEMPBUF)*((INITEND-BASE 

endif 



081E = 

081E 
083E 
085E 
087E 
089E 
08BE 
08DE 
08FE 

091E 
095E 
095E 
099E 
099E 
09DE 
09DE 
0A1E 
QA1E 
0A5E 
0A5E 
0A9E 
0A9E 
0AC2 
0AC2 
0AE6 



0AE6 
0AE7 
0AE9 



BEGEAT 


EQU 


$ 


/DIRBUF 


:ES 


128 


ALVO: 


DS 


32 


CSVOs 


DS 


32 


ALV1: 


DS 


32 


CSV1: 


DS 


32 


ALV2: 


DS 


32 


CSV2: 


DS 


32 


ALV3: 


DS 


32 


CSV3s 


DS 


32 




IF 


HARESK 


ALV4s 


DS 


64 


CSV4: 


DS 





ALV5s 


DS 


64 


CSV5: 


DS 





ALV6s 


DS 


64 


CSV6; 


DS 





ALV7s 


DS 


64 


CSV7: 


DS 





ALV8: 


DS 


64 


CSV8: 


DS 





ALV9: 


DS 


64 


CSV9: 


DS 





ALVA? 


DS 


36 


CSVA: 


DS 





ALVBs 


DS 


36 


CSVBs 


DS 
endif 







if 


mdisk 


ALVCs 


DS 


32 


CSVCs 


DS 
endif 







if 


not mpra20 




if 


hardsk 




DS 


1 


HSTBUF: 


DS 


1024 




DS 


1 




ENDIF 




PPYBUF 


EQU 

endif 


DIRBUF+12 


NEWDSK: 


DS 


1 


NEWTRK: 


DS 


2 


NEWSEC: 


DS 


1 



/START OF BDOS AREA 
/OVERLAYS SYSTEMINIT CODE 



/VIRTUAL DISK 



/MUST PRECEDE HSTBUF 
/HOST BUFFER AREA 
/MUST FOLLOW HSTBUF 



/ FLOPPY I/O BUFFER 



SEEK DISK NUMBER 
SEEK TRACK NUMBER 
SEEK SECTOR NUMBER 
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OAEA 




HSTDSK: 


DS 


1 


OAEB 




HSTTRK: 


DS 


2 


OAED 




HSTSEC: 


ES 


1 


OAEE 




NEWHST: 


DS 


1 


OAEF 




HSTACT; 


DS 


1 


OAFO 




HSTWRT: 


DS 


I 


OAP1 




UNACNT: 


DS 


1 


0AF2 




UNADSK: 


DS 


1 


OAF3 




UNATRK: 


DS 


2 


OAFS 




UNASEC: 


DS 


1 


0AF6 




ERFLAG: 


DS 


1 


0AF7 




RSFLAG: 


DS 


1 


0AF8 




READOP: 


DS 


1 


0AF9 




WRTYPE: 


DS 


1 


OAFA 


00 


CMD: 


DB 





QAFB 


00 


MASK: 


DB 





OAFC 


00 


STATUS: 


C8 





QAFD 


00000000 


SAVE1: 


DB 


OOOH, 000H f OOOH, OOOH 


OBQA 


00 


P$RETRIES: EB 


OOOH 


0B02 


00 


T$RETRIES: DB 
HCME$TCGGLE: 


OOOH 


0B03 


00 




DB 


OOOH 



;HOST DISK NUMBER 
;HOST TRACK NUMBER 
;HOST SECTOR NUMBER 

;SEEK SHR SECSHF 
;HOST ACTIVE FLAG 
;HOST WRITTEN FLAG 

; UNALLOCATED RECORD 
;LAST UNALLOCATED DISK 
;LAST UNALLOCATED TRACK 
;LAST UNALLOCATED SECTR 

; ERROR REPORTING 
;READ SECTOR FLAG 
;1 IF READ OPERATION 
;WRITE OPERATION TYPE 

;CCMMANDS FOR NEXT 
/STATUS MASKS BUFFER 
; STATUS SAVE LOCATION 

;SAVE AREA FOR NMI 
;COUNTER FOR PERMANENT 
;COUNTER FOR TEMPORARY 

; INDICATOR TO TELL 
;.. IF HCME SHOULD 



Page 
if 



mpn20 



********************************************************* 
* 

* MP/M 2.0 COMMON BASE 

********************************************************* 





COTmonbase : 




0B04 C3150B 


jmp 


coldstart 


0B07 C30000 


swtusersjmp 


$-$ 


OBOA C30000 


swtsys: jmp 


$-$ 


OBOD C30000 


pdisp: jmp 


$-$ 


0B10 C30000 


xdos: jmp 


$-$ 


0B13 0000 


sysdat: dw 
COLDSTART: 
WARMSTART: 


$-$ 


0B15 0E00 


MVI 


c r o 


0B17 C3100B 


JMP 


XDOS 



SEE SYSTEM INIT 
COLD & WAFM START INCLUDE 
FOR COMPATIBILITY WITH CP 
SYSTEM RESET, TERMINATE P 
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rtnempty: 




0B1A AF 


xra 


a 


0B1B C9 


ret 
NULL$INT: 




0B1C FB 


EI 
RETI 




0B1D+ED4D 


OB 
endif 


0EDH,04DH 



FAKE RETI INSTRUCTION 



CENTRONICS PRINTER ROUTINE (WITH SEPARATE BUSY TEST 





CNSTATs 






0B1F 3E01 




MVI 


A,001H 


0B21 D310 




OUT 


010H 


0B23 DB10 




IN 


010H 


0B25 E620 




ANI 


020H 


0B27 3EFF 




MVI 


A,0FFH 


0B29 C8 




RZ 




0B2A AF 




XRA 


A 


0B2B C9 


CLIST: 


RET 




0B2C CD1F0B 




CALL 


CNSTAT 


0B2F B7 




ORA 


A 






JRNZ 


CLIST1 


0B30++2009 




DB 


020H,CLISTl-$ 


0B32 C5 




PUSH 


B 


0B33 0E83 




MVI 


C,POLL 


0B35 1EOO 




MVI 


E,PLLPT 


0B37 CD100B 




CALL 


XDOS 


0B3A CI 


CLISTls 


POP 


B 


0B3B 79 




MOV 


A r C 


0B3C D3I1 




OUT 


011H 


0B3E 3E00 




MVI 


A,000H 


0B40 D310 




our 


010H 


0B42 3E01 




MVI 


A, 001H 


0B44 D310 




OUT 


010H 


0B46 C9 




RET 





TO SET STROBE HIGH 

READ PRINTER STATUS 
REMOVE ALL BUT BUSY BIT 
ASSUME NCT BUSY 
CHECK ASSUMPTION 
SET TO SHOW STILL BUSY 



;IS PRINTER READY NCW? 

?IF READY, SKIP POLL 

._ — FAKE JRNZ INSTRUCTION 



POLL DEVICE 
PRINTER 
WAIT FOR PRINTER TO FREE UP 



CHARACTER TO PRINT 
WRITE IT TO DATA PORT 
TO FORCE STROBE LOW 

TO FORCE STROBE HIGH 



PAGE 



DISK INTERRUPT ROUTINE 
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FLOPPY$INT: 






0B47 22C80D 




SHLD 


SVDHL 




0B4A 21500B 




LXI 


H r FDINTH 




0B4D C37F0D 


FDINTH: 


JMP 


INTINIT 




0B50 DB04 




IN 


004H 


;GET STATUS 


0B52 32FC0A 




STA 


STATUS 


;SAVE FOR I/O ROUTINE 


0B55 3E00 




MVI 


A,0 


?STOP TIMING OF RESPONSE TO 


0B57 32D10D 




STA 


FPYTIME+1 




0B5A 1E06 




MVI 
JR 


E,FFYFLAG 
HDSTFLG 


;SHOW I/O COMPLETED 


0B5C+1813 




DB 


018H,HSDTFLG-$- 


-1 ; FAKE JR INSTR 




HARD$INTH: 






0B5E 22C80D 




SHLD 


SVDHL 




0B61 21670B 




LXI 


H,HDINTH 




0B64 C37F0D 




JMP 


INTINIT 




0B67 DB24 




IN 


024H 


;GET STATUS 


0B69 32FCQA 




STA 


STATUS 


?SAVE FOR CHECK LATER 


0B6C AF 




XRA 


A 




0B6D D323 




OUT 


023H 


;RESET INTERRUPT BY RELOADING 


0B6F 1E05 


HDSTFLG 


MVI 


E,HDFLAG 


?3HCW I/O CCMPLETED 


0B71 0E85 




MVI 


CFLAGST 




0B73 CD100B 




CALL 


XDOS 




0B76 C3670D 




JMP 


• INTDCNE 





PAGE 





e 

t 












e 
1 


CONSOLE 


DISPLAY ROUTINES 






t 

CONST: 






? CONSOLE STATUS 




0B79 CD9AGB 




CALL 


PTBLJMP 


; CCMPUTE AND JIMP TO HNDLR 




0B7C ADOB 




DW 


PTOST 


-, CONSOLE #0 STATUS ROUTINE 




0B7E ECOB 




DW 


PT1ST 


? CONSOLE #1 STATUS ROUTINE 




0B80 2B0C 




EW 


PT2ST 


j CONSOLE #2 STATUS ROUTINE 




0B82 6A0C 


CONIN: 


EW 


PT3ST 


; CONSOLE #3 STATUS ROUTINE 
; CONSOLE INPUT 




0B84 CD9A0B 




CALL 


PTBLJMP 


; COMPUTE AND JIMP TO HNDLR 




0B87 B80B 




DW 


PTOIN 


; CONSOLE #0 INPUT 




0B89 F70B 




DW 


PT1IN 


; CONSOLE #1 INPUT 




0B8B 360C 




DW 


PT2IN 


; CONSOLE #2 INPUT 




0B8D 750C 


CONOUT: 


DW 


FT3IN 


; CONSOLE #3 INPUT 
; CONSOLE OUTPUT 
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0B8F CD9A0B 


CALL 


PTBLJMP 4 


> CCMPUTE AND JIMP TO HNDLR 


0B92 CAOB 


DW 


PTOOUT , 


; CONSOLE #0 OUTPUT 


0B94 090C 


EW 


PT10UT , 


; CONSOLE #1 OUTPUT 


0B96 480C 


DW 


PT20UT , 


• CONSOLE #2 OUTPUT 


0B98 870C 


EW 


PT30UT , 


• CONSOLE #3 OUTPUT 




• 

PTBLJMPs 




? CCMPUTE AND JUMP TO HANDLR 

? D = CONSOLE # 

; DO NOT DESTROY <D> 


0B9A 7A 


MOV 


A,D 




0B9B FE04 


CPI 


NMBCNS 






JRC 


TBLJMP 




0B9D+3803 


DB 


038H<TBLJMP-$-l ; FAKE JRC INSTRUCTION 


0B9F Fl 


POP 


PSW 


; THROW 2MAY TABLE ADDRESS 


OBAO AF 


XRA 


A 




OBA1 C9 


RET 








TBLJMPs 




^COMPUTE AND JUMP TO HANDLER 
•, A = TABLE INDEX 


0BA2 87 


ADD 


A 


; DOUBLE TABLE INDEX FOR ADR OFFST 


0BA3 El 


POP 


H 


? RETURN ADR POINTS TO JUMP TBL 


0BA4 5F 


MOV 


E f A 




0BA5 1600 


MVI 


D,0 




0BA7 19 


DAD 


D 


; ADD TABLE INDEX * 2 TO TBL BASE 


0BA8 5E 


MOV 


E,M 


? GET HANDLER ADDRESS 


0BA9 23 


INX 


H 




OBAA 56 


MOV 


D,M 




OBAB SB 


XCHG 






OBAC E9 


PCHL 




; JUMP TO CCMPUTED CNS HANDLER 
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SERIAL PORT ADDRESS EQUATES 



001C = 


r 

DATAO 


EQU 


01CH , 


•CONSOLE #0 DATA 


001D = 


STSO 


EQU 


DATAO+1 j 


CONSOLE #0 STATUS 


002C = 


DATA! 


EQU 


02CH 


•CONSOLE #1 DATA 


002D ■ 


STS1 


EQU 


DATA1+1 


•CONSOLE #1 STATUS 


002E » 


DATA2 


EQU 


02EH 


•CONSOLE #2 DATA 


002F = 


STS2 


EQU 


DATA2+1 j 


CONSOLE #2 STATUS 


002A = 


DATA3 


EQU 


02AH 


•CONSOLE #3 DATA 


002B » 


STS3 


EQU 


DATA3+1 


•CONSOLE #3 STATUS 


001E = 


LPTPRTO EQU 


01EH , 


•PRINTER #0 DATA 


001F » 


LPTSTSO 


EQU 


LPTPRTO+1 


? PRINTER #0 STATUS 


0028 = 


LPTPRT1 EQU 


028H 


•PRINTER #1 DATA 


0029 = 


LPTSTS1 EQU 


LPTPRT1+1 


i PRINTER #1 STATUS 
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POLL CONSOLE # INPUT 





POLCIO: 
PTOST: 






• 


TEST CONSOLE STATUS 


OBAD AF 




XRA 


A 


• 


RETURN OFFH IF READY 


OBAE D31D 




our 


STSO 


* 


OFFH IF NOT 


OBBO DB1D 




IN 


STSO 


t 




0BB2 E601 




ANI 


1 


1 


RX CHAR ? 


0BB4 C8 




RZ 




t 


NO 


0BB5 3EFF 




MVI 


A,0FFH 


• 


YES - SET FLAG 


0BB7 C9 




RET 




/ 





CONSOLE # INPUT 





PTOIN: 






• RETURN CHAR IN REG A 


0BB8 CDADOB 




CALL 


POLCIO 


•IS IT READY NOW? 


OBBB B7 




ORA 


A 








JRNZ 


PT0IN1 


fIF READY, SKIP POLL 


OBBC+2007 




DB 


020H r PT0INl-$-l , 


FAKE JRNZ INSTRUCTION 


OBBE 0E83 




MVI 


C f POLL 




OBCO 1E05 




MVI 


E r PLCI0 J 


■ POLL CONSOLE #0 INPUT 


0BC2 CD100B 




CALL 


XDCS 




0BC5 DB1C 


PTOINIj 


IN 


DATAO , 


• READ CHARACTER 


0BC7 E67F 




ANI 


7FH 


; STRIP PARITY 


0BC9 C9 


i 
i 


RET 







CONSOLE # OUTPUT 





i 

PTOOUT: 






•REG C » CHAR TO OUTPUT 


OBCA CDDDOB 




CALL 


POLCOO j 


►IS IT READY NOW? 


OBCD C7 




ORA 


A ; 








JRNZ 


PT0OUT1 


•IF READY, SKIP POLL 


OBCE+2009 




DB 


020H,FT0OUTl-$-l 


. FA KE JRNZ INS 


OBDO C5 




PUSH 


B 




0BD1 0E83 




MVI 


C r POLL 




0BD3 1E01 




MVI 


E f PLCO0 




0BD5 CD100B 




CALL 


XDOS 


-, POLL CONSOLE #0 OUTPUT 


0BD8 CI 


PT0OUT1 


POP 


B 




0BD9 79 




MOV 


A f C 




OBDA D31C 




OUT 


DATAO 


; TRANSMIT CHARACTER 
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OBDC C9 



RET 




• 








; POLL CONSOLE 


# o 


OUTPUT 





















POLCOO: 



OBDD 


3E10 


OBDF 


D31D 


0BE1 


DB1D 


0BE3 


E60C 


0BE5 


FEOC 


0BE7 


3EOO 


0BE9 CO 


OBEA 


3D 


OBEB C9 



MVI 


A,10H 


OUT 


STSO 


IN 


STSO 


ANI 


OCH 


CPI 


OCH 


MVI 


A f 


RNZ 




DCR 


A 


RET 





RETURN OFFH IF READY 

OOOH IF NOT 
RESET INT BIT 
READ STATUS 
MASK FOR DTR AND TXE 
MUST HAVE BOTH 

RETURN NOT READY 
CHANGE "A" TO OFFH 
; RETURN READY 
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POLL CONSOLE # 1 INPUT 





POUCH: 








PT1ST: 






OBEC AF 




XRA 


A 


OBED D32D 




OUT 


STS1 


OBEF DB2D 




IN 


STS1 


0BF1 E601 




ANI 


1 


0BF3 C8 




RZ 




0BF4 3EFF 




MVI 


A, OF 


0BF6 C9 




RET 





TEST CONSOLE STATUS 
RETURN OFFH IF READY 
OOOH IF NOT 

RX CHAR ? 
NO 
YES - SET FLAG 



CONSOLE # 1 INPUT 





PT1IN: 






• RETURN CHAR IN REG A 


0BF7 CD3C0B 




CALL 


POLCI1 


•READY NOW? 


OBFA B7 




ORA 


A 








JRNZ 


FTIIN1 


; IF READY, SKIP POLL 


OBFB+2007 




DB 


020H,PTlINl-$-l , 


FAKE JRNZ INSTRUCTION 


OBFD 0E83 




MVI 


C f POLL 




OBFF 1E06 




MVI 


E,PLCI1 


• POLL CONSOLE #1 INPUT 


0C01 CD100B 




CALL 


XDOS 




0C04 DB2C 


PT1IN1: 


IN 


DATA1 


• READ CHARACTER 


0C06 E67F 




ANI 


7F 


; STRIP PARITY 
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QC08 C9 



RET 






i 




; CONSOLE 


# 1 


OUTPUT 



















PT10UT: 








m 
9 


REG C = CHAR TO OUTPUT 


0C09 CD1C0C 




CALL 


POLC01 




;ARE WE READY NOW? 


OCOC B7 




ORA 


A 




• 
9 






JRNZ 


PT10UT1 




;IF READY, SKIP POLL 


0C0D+2OO9 




DB 


020H,PT10UTl-$- 


-1 ; FAKE JRNZ INS 


OCOF C5 




PUSH 


B 




} 


0C10 0E83 




MVI 


C,POLL 




• 


0C12 1E02 




MVI 


E,PLC01 




/ 


0C14 CD100B 




CALL 


XDOS 




1 POLL CONSOLE #1 OUTPUT 


0C17 CI 


PT101/P1 


POP 

« 


B 




• 


0C18 79 




MOV 


A,C 




7 


0C19 D32C 




our 


bJt\ x£\Jb 




? TRANSMIT CHARACTER 


0C1B C9 




RET 






t 




• 
• 
« 


POLL CONSOLE # 1 


OUTPOT 




POLCOls 








; RETURN OFFH IF READY 


0C1C 3E10 




MVI 


A,10H 






000H IF NOT 


0C1E D32D 




OUT 


STS1 






RESET INT BIT 


0C20 DB2D 




IN 


STS1 






• READ STATUS 


0C22 E60C 




ANI 


OCH 






• MASK FOR ETR AND TXE 


0C24 FEOC 




CPI 


OCH 






f MUST HAVE BOTH 


0C26 3E00 




MVI 


A,0 








0C28 CO 




RNZ 








? RETURN NOT READY 


0C29 3D 




DCR 


A 






^CHANGE "A" TO OFFH 


0C2A C9 




RET 








? RETURN READY 
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POLL CONSOLE # 2 INPUT 



POLCI2: 
PT2ST: 



0C2B AF 



XRA 



TEST CONSOLE STATUS 
RETURN OFFH IF READY 
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0C2C D32F 
0C2E EB2F 
0C3O E601 
0C32 C8 
0C33 3EFF 
0C35 C9 



OUT 


STS2 


IN 


STS2 


ANI 


1 


RZ 




MVI 


A, OF] 


RET 





000H IF NOT 

RX CHAR 7 
NO 
YES - SET FLAG 



CONSOLE # 2 INPUT 



PT2IN: 



0C36 CD2B0C 




CALL 


POLCI2 j 


•READY NCW? 


0C39 B7 




ORA 


A , 








JRNZ 


PT2IN1 


■IF READY, SKIP POLL 


0C3A+20O7 




DB 


020H,PT2INl-$-l j 


»« FAKE JRNZ INSTRUCTION 


0C3C 0E83 




MVI 


CPOLL 




0C3E 1E07 




MVI 


E,PLCI2 ; 


• POLL CONSOLE #2 INPUT 


0C40 CD100B 




CALL 


XDOS 




0C43 DB2E 


PT2INls 


IN 


DATA2 \ 


• READ CHARACTER 


0C45 E67F 




ANI 


7F 


) STRIP PARITY 


0C47 C9 


e 
f 

1 


RET 




» 
r 



RETURN CHAR IN REG A 



CONSOLE # 2 OUTPUT 



0C48 CD5B0C 


PT20UTS 

CALL 


POLC02 ; 


0C4B B7 


ORA 


A 




JRNZ 


PT20UT1 ; 


0C4C+2009 


DB 


020H,PR2OOTl-$-l 


0C4E C5 


PUSH 


B 


0C4F 0E83 


MVI 


CPOLL 


0C51 1E03 


MVI 


E f PLC02 ; 


0C53 CD100B 


CALL 


XDOS ; 


0C56 CI 


POP 
PT20UT1: 


B ; 


0C57 79 


MOV 


A,C 


0C58 D32E 


OUT 


DATA2 


0C5A C9 


RET 





REG C » CHAR TO OUTPUT 
READY NOT? 

IF READY, SKIP POLL 

. FAKE JRNZ INS 



POLL CONSOLE #2 OUTPUT 



TRANSMIT CHARACTER 



POLL CONSOLE # 2 OUTPUT 



POLC02: 



; RETURN OFFH IF READY 
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0C5B 


3E10 


0C5D D32F 


0C5F 


DB2F 


0C61 


S60C 


0C63 


FEOC 


0C65 


3E00 


0C67 CO 


0C68 


3D 


0C69 C9 



MVI 


A,10H ; 


OOOH IF NOT 


OUT 


STS2 j 


> RESET INT BIT 


IN 


STS2 3 


• READ STATUS 


ANI 


OCH ; 


• MASK FOR DTR AND TXE 


CPI 


OCH 


• MUST HAVE BOTH 


MVI 


A,0 j 




RNZ 




? RETURN NOT READY 


DCR 


A 


^CHANGE "A" TO OFFH 


RET 




r RETURN READY 
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POLL CONSOLE # 3 INPUT 





POLCI3: 








PT3ST; 






0C6A AF 




XRA 


A 


0C6B D32B 




OUT 


STS3 


0C6D DB2B 




IN 


STS3 


0C6F E601 




ANI 


1 


0C71 C8 




RZ 




0C72 3EFF 




MVI 


A r 0F 


0C74 C9 




RET 





TEST CONSOLE STATUS 
RETURN OFFH IF READY 
OOOH IF NOT 

RX CHAR ? 
NO 
YES - SET FLAG 



CONSOLE # 3 INPUT 





PT3IN: 






RETURN CHAR IN REG A 


0C75 CD6A0C 




CALL 


POICI3 j 


READY NOW? 


0C78 B7 




ORA 


A ; 








JRNZ 


PT3IN1 


»IF READY, SKIP POLL 


0C79+2007 




DB 


020H f PT3INl-$~l j 


> FAKE JRNZ INSTRUCTION 


0C7B 0E83 




MVI 


CPOLL 




0C7D 1E08 




MVI 


E r PLCI3 j 


• POLL CONSOLE #3 INPUT 


0G7F CD100B 




CALL 


XDOS 




0C82 DB2A 


PT3IN1: 


IN 


DATA3 j 


- READ CHARACTER 


0C84 E67F 




ANI 


7FH 


} STRIP PARITY 


0C86 C9 




RET 







CONSOLE # 3 OUTPUT 
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PT30UT: 



0C87 CD9A0C 


CALL 


POLC03 


0C8A B7 


ORA 


A 




JRNZ 


FT30UT1 


0C8B+2009 


DB 


020H,PT3OUTl-$-l 


0C8D C5 


PUSH 


B 


0C8E 0E83 


MVI 


C,POLL 


0C90 1E04 


MVI 


E,PLC03 


0C92 CD100B 


CALL 


XDOS 


0C95 CI 


POP 
PT30UT1: 


G 


0C96 79 


MOV 


A,C 


0C97 D32A 


OUT 


DATA3 


0C99 C9 


RET 





REG C = CHAR TO OUTPUT 
READY NOW? 

IF READY, SKIP POLL 

. FAKE JRNZ INS 



POLL CONSOLE #3 OUTPUT 



TRAN94IT CHARACTER 



POLL CONSOLE # 3 OUTPUT 



POLC03; 



0C9A 


3E10 


0C9C 


D32B 


0C9E 


DB2B 


OCAO 


E60C 


0CA2 


FEOC 


0CA4 


3E00 


0CA6 CO 


0CA7 


3D 


0CA8 


C9 







; RETURN OFFH IF READY 


MVI 


A,10H 


OOOH IF NOT 


OUT 


STS2 


; RESET INT BIT 


IN 


STS2 


; READ STATUS 


ANI 


OCH 


? MASK FOR DTR AND TXE 


CPI 
MVI 


OCH 
A,0 


; MUST HAVE BOTH 


RNZ 




; RETURN NOT READY 


DCR 


A 


;CHANGE "A" TO OFFH 


RET 




; RETURN READY 
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LINE PRINTER # DRIVER 



LIST: 



0CA9 CDBCOC 


CALL 


POLLPT 


OCAC B7 


ORA 


A 




JRNZ 


LIST1 


0CAD+2009 


DB 


020H,LISTl-$-l 


OCAF C5 


PUSH 


B 


OCBO 0E83 


MVI 


C,POLL 


0CB2 1E00 


MVI 


E,PLLFT 


0CB4 CD100B 


CALL 


XDCS 


0CB7 CI 


POP 


B 



;LIST OUTPUT #0 

;IS PRINTER READY NOW? 

;IF READY, SKIP POLL 

... — FAKE JRNZ INSTRUCTION 



POLL PRINTER STATUS 
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0CB8 79 
0GB9 D31E 
OCBB C9 



LISTls 



MOV 
OUT 
RET 



A,C 
LPTPRTO 



; CHARACTER TO PRINT 



POLL PRINTER OUTPUT 





POLLPT: 




; RETURN OFFH IF READY 


OCBC 3E10 


MVI 


A,10H 


OOOH IF NOT 


OCBE D31? 


our 


LPTSTSO 


; RESET INT BIT 


OCCO DBiF 


IN 


LPTSTSO 


; READ STATUS 


0CC2 E60C 


ANI 


OCH 


; MASK FOR DTR AND TXE 


0CC4 FEOC 


CPI 


OCH 


; MUST HAVE BOTH 


0CC6 3E00 


MVI 


A,0 




0CC8 CO 


RNZ 




; RETURN NOT READY 


0CC9 3D 


DCR 


A 


/CHANGE "A" TO OFFH 


OCCA C9 


RET 




; RETURN READY 
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0CC3 79 
OCCC FE09 

OCCE+3802 
OCDO 3E09 



0CD2 CDA20B 



0CD5 BCOC 



POLLDEVICEj 



MOV 

CPI 

JRC 

DB 

MVI 



DEVOK; 



DEV1BL: 



0CD7 
0CD9 
OCDB 
OCDD 
OCDF 
0CE1 
0CE3 
0CE5 
0009 
0CE7 



DDOB 
1C0C 
5B0C 
9A0C 
ADOB 
EC OB 
2B0C 
6A0C 

1A0B 



DW 



DW 
EW 
DW 
EW 
DW 
EW 
DW 
DW 
NMBDEV EQU 
EW 



REG C a DEVICE # TO BE POLLED 
RETURN OFFH IF READY, 
OOOH IF NOT 

A, V* 

NMBDEV 
DEVOK 

038H,DEVOK-$-l ; FAKE JRC INSTRUCTION 

A,^WBDEV; IF DEV # >= NMBDEV, 
; SET TO NMBDEV 



CALL TBLJMP ; JUMP TO DEV POLL CODE 



POLLPT 

POLLCO 

POLCOl 

POLC02 

POLC03 

POLCIO 

POLCI1 

POLCI2 

POLCI3 

($-DEVTB 

RTNEMPTY 



L) 



POLL PRINTER OUTPUT - THIS WILL POLL 
SPECIFIED PARALLEL PORT FOR PRINTER 
POLL CONSOLE #0 OUTPUT 
POLL CONSOLE #1 OUTPUT 
POLL CONSOLE #2 OUTPUT 
POLL CONSOLE #3 OUTPUT 
POLL CONSOLE #0 INPUT 
POLL CONSOLE #1 INPUT 
POLL CONSOLE #2 INPUT 
POLL CONSOLE #3 INPUT 
/2 
BAD DEVICE HANDLER 
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SELECT / PROTECT MEMORY 



SEIMEMORY: 



0CE9 
OCEB 
OCEE 
0CF1 
0CF2 
0CF3 
0CF6 
0CF7 
0CF8 
0CF9 
OCFB 
OCFD 
ODOO 
0D02 



FE20 

CAEBOC 

210300 

09 

7E 

32030D 

17 

17 

17 

E618 

F602 

32040D 

D309 

C9 



0D03 00 
OD04 00 



CPI 

JZ 

LXE 

DAD 

MOV 

STA 

RAL 

RAL 

RAL 

ANI 

ORI 

STA 

OUT 

RET 

BANKNO: DB 
CUFMEM: DB 



20H 

$ 

H,3 

B 

A,M 

BANKNO 



018H 
MEMSK 
CURMEM 
009H 



REG BC - ADR OF MEM DESCRIPTOR 



BC -> 



BASE 
SIZE 
ATTOIB 
BANK 



BYTE, 
BYTE, 
BYTE, 
BYTE. 



BIOS TABLE MODIFIED 



POINT TO BANK 

GET IT 
SAVE BANK NUMBER 



MASK FCR PIO 

STORE CURRENT BANK MASK 
SET PIO 



; LAST SELECTED MEMORY BANK-NUMBER 
; LAST SELECTED MEMORY BANK.MASK 



0D05 3EFF 
0D07 32CE0D 
ODOA C9 



ODOB AF 
ODOC 32CE0D 
QDOF C9 



; START CLOCK 
STARTCLOCK: 

MVI A,0FFH 
STA TICKN 
RET 

; STOP CLOCK 

STOPCLOCK: 

XRA A 
STA TICKN 
RET 

; EXIT REGION 

EXITREGION: 



WILL CAUSE FLAG #1 TO BE SET 
AT EACH SYSTEM TIME UNIT TICK 



; WILL STOP FLAG #1 SETTING AT 
; SYSTEM TIME UNIT TICK 
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; EI IF NOT PREEMPTED 


0D10 3ACF0D 




LDA 


PREEMP 


«3p.ij. Aids 

0D14 co 




ORA 


A 




RNZ 




0D15 FB 




EI 




QD16.C9 




RET 






; MAXIMUM CCNSOLE NUMBER 




MAXCCNSOLE: 




0D17 3E04 




MVI 


A r NMBCNS 


0D19 C9 




RET 






; MP/M 1.0 


INTERRUPT HANDLERS 


008E - 


D3PTCH 


EQU 


142 




INT1HND 


• 


; INTERRUPT 1 HANDLER ENTRY POINT 




T20MS: 




7 


0D1A 22C80D 




SHLD 


SVDHL 


0D1D 21220D 




LXI 


H,TIMERINT 






JR 


INTINIT 


0D20+185D 




DB 


018H,INTINIT-$-l ; FAKE JR INSTR 




TIMERINT; 




0D22 3ACE&S 




LDA 


TICKN 


0D25 B7 




ORA 


A ? TEST TICKN, INDICATES 
; DELAYED PROCESS (ES) 






JRZ 


NOTICKN 


0D26+2807 




DB 


028H f N0TICKN-$-l ; FAKE JRZ INST 


0D28 0E85 




MVI 


CFLAGST 


0D2A 1E01 




MVI 


E,l 


0D2C CDIOOB 




CALL 


XDOS ; SET FLAG #1 EACH TICK 




NOTICE 


I: 




0D2F 219D0D 




LXI 


H r CNTX 


0D32 35 




DCR 


M ; DEC TICK CNTR 






JRNZ 


N0T1SEC 


0D33+2032 




DB 


020H,NOTlSEC-$-l ; ■ FAKE JRNZ INST 


0D35 3E7D 




MVI 


A, 125 


0D37 2B 




XX 


H 


0D38 96 




SUB 


M 


QD39 77 




MOV 


M,A ; *** TOGGLE COUNT 62 <-> 6 


0D3A 23 




INX 


H 


0D3B 77 




MOV 


M,A ; *** ACTUAL #/SEC » 62.5 


0D3C 0E85 




MVI 


CFIAGST 


0D3E 1E02 




MVI 


E,2 


0D40 CDIOOB 




CALL 


XDOS , 


• SET FLAG #2 @ 1 SEC 


0D43 2AD00D 




LHLD 


FPYTIME 


•IS FLOPPY TIME CHECK IN EF 


0D46 7C 




MOV 


A f H 




0D47 B7 




ORA 


A 








JRZ 


NOT1SEC 


rIF NOT IN EFFECT, FINISH 


0D48+281D 




DB 


028H,NOTlSEC-$-l ; FAKE JRZ INST 


0D4A 2D 




DCR 


L ; SUBTRACT A SECCND 


0D4B 22D00D 




SHLD 


FPYTIME 


;SAVE FOR NEXT TIME 
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JRNZ 


NOT1SEC 


0E4E+2017 


DB 


020H,NGT1SE< 


0D50 65 


MOV 


H f L 


0D51 22D00D 


SHLD 


FFYTIME 


0D54 0E85 


MVI 


CFLAGST 


0D56 1E06 


MVI 


E,FFYFLAG 


0D58 CD100B 


CALL 


XDOS 


0D5B 3E90 


MVI 


A f 10010000B 


0D5D 32PC0A 


STA 


STATUS 


0D60 2AD20D 


LHLD 


FFYTCNT 


0D63 23 


INX 


H 


0D64 22D20D 


SSLD 
NOT1SEC: 
INTDCNE: 


FPYTCNT 


QD67 AF 


XRA 


A 


0D68 32CF0D 


STA 


PREEMP ; C 


0D6B CI 


POP 


B 


0D6C Dl 


POP 


D 


0D6D 2ACA0D 


LHLD 


SVDSP 


0D70 P9 


SPHL 




0D71 Fl 


POP 


PSW 


0D72 2ACC0D 


LHLD 


SVDRET 


0D75 E5 


PUSH 


H 


0D76 210D0B 


LXI 


H,PDISP 


0D79 E5 


PUSH 


H 


0D7A 2AC80D 


LHLD 


SVDHL 



;IF NOT TOO LONG, FINISH 

._ FAKE JRNZ |N^ 
;ZERO OUT INDICATOR 
;PREVENT RE-ENTRY OF THIS ROjPftltflt 



;CAUSE I/O FOR FLOPPY TO CONTINUE' 

?SHCW ERRCR IN FLOPPY I/O 

;COUNT TIMES WD1791 GOES TO., 
t 



; RESTORE STK PTR 



; MP/M DISPATCH 

; PUT ON STACK' FOR RETURN 



THE FOLLOWING DISPATCH CALL WILL FORCE ROUND ROBIN 
SCHEDULING OF PROCESSES EXECUTING AT THE SAME PRIORITY 
EACH 1/32ND OF A SECOND. 

NOTE: INTERRUPTS ARE NOT ENABLED UNTIL THE DISPATCHER 
RESUMES THE NEXT PROCESS. THIS PREVENTS INTERRUPT 
OVER-RUN OF THE STACKS WHEN STUCK OR HIGH FREQUENCY 
INTERRUPTS ARE ENCOUNTERED. 





RETI 




t 


DISPATCH 


0D7D+ED4D 


DB 
INTINIT: 


0EDH,04DH 




— — FAfCF RFTT INSTRUCTION 


r" 


Lj-j.jn.jw. st\C\Ct jvVJCiXJ. X»w 1I\VA« a xvaj 


D7F 22C60D 


SHLD 


ADRINTHD 






0D82 El 


POP 


H 






0D83 22CC0D 


SHLD 


SVDRET 






0D86 F5 


PUSH 


PSW 






0D87 210000 


LXI 


H,0 






0D8A 39 


DAD 


SP 






0D8B 22CA0D 


SHLD 


SVDSP 


• 


SAVE USERS STK PTR 


0D8E 31C60D 


LXI 


SP,LSTINTSTK 


• 


LCL STK FOR INTR HNDL 


0D91 D5 


PUSH 


D 






0D92 C5 


PUSH 


B 






0D93 3EFF 


MVI 


A f 0FFH 






0D95 32CF0D 


STA 


PREEMP 


i 


SET PREEMPTED FLAG 


0D98 2AC60D 


LHLD 


ADRINTHD 
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0D9B E9 



PCHL 



;JUMP TO INTERRUPT HANDLER 



BIOS DATA SEGMENT 



0D9C 
0D9D 

GD9E 
0DA8 
0DB2 
ODBC 

0DC6 
0DC8 
ODCA 
ODCC 
ODCE 
ODCP 



3E "-TQGCNT: EB 
3E CmX: DB 

INTSTK: 
C7C7C7C7C7 EW 
C7C7C7C7C7 DW 
C7C7C7C7C7 EW 
C7C7q7C7C7 DW 
'"""*'" ''LSTINTSTK: 
0000 ADRINTHD: DW 
0000 SVDHL: DW 
0000 SVDSP: DW 
0000 SVDRET; DW 
00 v TICKNs EB 
00 PREEMP: EB 



if 



FPYTIME: 



62 ; TOGGLE COUNTER 62 <-> 63 
62 ,* TICK CNTR TO 1 SEC 

• LOCAL INTRPT STK 
0C7C7H, 0C7C7H, 0C7C7H, 0C7C7H, 0C7C7H 
0C7C7H, 0C7C7H, 0C7C7H, 0C7C7H, 0C7C7H 
0C7C7H, 0C7C7H, 0C7C7H r 0C7C7H, 0C7C7H 
0C7C7H , 0C7C7H , 0C7C7H f 0C7C7H , 0C7C7H 



ODDO 0000 



DW 










mpm20 





INTERRUPT HANDLER ADDRESS 
SAVED REGS HL DURING INT HNDL 
SAVED SP DURING INT HNDL 
SAVED RETURN DURING INT HNDL 
TICKING BOOLEAN, TRUE = DELAYED 
PREEMPTED BOOLEAN 



GDD2 0000 



FPYTCNT: 



EW 
endif 
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QDD4 


ss 


0DD4 


1A00 


0DD6 


03 


0DD7 


07 


0DD8 


00 


0DD9 F200 


ODEB 


3F00 


ODDD CO 


ODDE 


00 %y 


ODDF 


1000 


0DE1 


0200 


0DE3 


s 


0DE3 


3400 


0DE5 


04 


0DE6 


OF 



DPBO; 



DPBli 



THESE ARE THE DISK TYPE DEFINITION BLOCKS 

EACH OF WHICH CORRESPONDS TO A PARTICULAR MODE. 



EQU 


$ 


DW 


26 


DB 


3 


DB 


7 


EB 





DW 


242 


DW 


63 


DB 


192 


DB 





DW 


16 


EW 


2 


EQU 


$ 


EW 


52 


DB 


4 


DB 


15 



VERSION 2.0, SINGLE DENSITY 

SECTORS PER TRACK 

BLOCK SHIFT 

BLOCK SHIFT MASK 

EXTENT MASK 

DISK SIZE MINUS 1 

DIRECTORY MAX 

ALLOCO 

ALLOC1 

CHECK AREA SIZE 

OFFSET TO START TRACK 

VERSION 2.0, DOUBLE DENSITY 
SECTORS PER TRACK 
BLOCK SHIFT 
BLOCK SHIFT MASK 
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0DE7 


01 


0D38 


F200 


ODEA 


7F00 


ODEC 


CO 


ODED 


00 


ODEE 


2000 


ODFO 


0200 


0DF2 


s 


0DF2 


3000 


0DF4 


04 


0DF5 


OF 


0DF6 


00 


0DF7 


EOOO 


0DF9 


5F00 


ODFB CO 


ODFC 


00 


ODFD 


1800 


ODFF 


0200 



DPB2: 



DB 


1 


►EXTENT MASK 


DW 


242 


•DISK SIZE MINUS 1 


EW 


127 


;DIRECTCRY MAX 


DB 


192 


■ALLOCO 


EB 





;ALL0C1 


DW 


32 


•CHECK AREA SIZE 


EW 


2 


-, OFFSET TO START TRACK 


EQU 


$ i 


•DOUBLE DENSITY 


EW 


48 


; SECTORS PER TRACK 


DB 


4 


? BLOCK SHIFT 


DB 


15 


?BLOCK SHIFT MASK 


DB 





•EXTENT MASK (1.4 COMPATIBLE 


DW 


224 


fDISK SIZE MINUS 1 


EW 


95 


-, DIRECTORY MAX 


EB 


192 


?ALLOC0 


DB 





?ALL0C1 


EM 


24 


?CHECK AREA SIZE 


EW 


2 


? OFFSET TO START TRACK 



IF 



HARDSK 



if mpn20 





DPB3; 


DISKDEF 


3,0,127, 


,16384,512,512,0,1, ,0 


0E01+= 


DPB3 


EQU 


$ 


;DISK PARM BLOCK 


0E01+8000 




EW 


128 


;SEC PER TRACK 


0E03+07 




EB 


7 


?BLOCK SHIFT 


0E04+7F 




DB 


127 


; BLOCK MASK 


0E05+07 




EB 


7 


,-EXINT MASK 


0E06+FF01 




EW 


511 


;DISK SIZE-1 


0E08+FF01 




EW 


511 


;DIRECTORY MAX 


0EQA+80 




DB 


128 


?ALLOC0 


OEOB+00 




DB 





J AJLajLAb. i. 


0E0C+0080 




DW 


8000H+CKSZ ; PERMANENT DISK WITH 


0E0E+O10O 




DW 


1 


•OFFSET 


0000+= 


XLT3 


EQU 





;NO XLATE TABLE 




DPB4s 


DISKDEF 


4,0,127,, 16384, 512, 512,0, 513,, 


0E10+* 


DPB4 


EQU 


$ 




DISK PARM BLOCK 


0E10+8000 




DW 


128 




•SEC PER TRACK 


0E12+07 




DB 


7 




BLOCK SHIFT 


0E13+7F 




EB 


127 




?BL0CK MASK 


0E14+07 




DB 


7 




•EXTNT MASK 


0E15+FF01 




EW 


511 




?DISK SIZE-1 


0E17+FF01 




DW 


511 




^DIRECTORY MAX 


0E19+80 




EB 


128 




? ALLOCO 


0E1A+00 




DB 







?ALL0C1 


0E1B+0080 




DW 


8000H+CKSZ ; PERMANENT DISK WITH 


0E1IHO102 




DW 


1 


• OFFSET 


0000+= 


XLT4 


EQU 





;NO XLATE TABLE 




DPB5: 


DISKDEF 


5,0,127, 


,16384, 512, 512,0, 1025,, 


0ElF+= 


DPB5 


EQU 


$ 


;DISK PARM BLOCK 


0E1F+8000 




EW 


128 


;SEC PER TRACK 


0E21+07 




EB 


7 • 




; BLOCK SHIFT 
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0E22+7F 




DB 


127 




;BL0CK MASK 


0E23+07 




DB 


7 




;EXTNT MASK 


0E24+FF01 




DW 


511 




/DISK SJZE-1 


0E26+FF01 




EW 


511 




;DIRECTORY MAX 


0E28+8O 




DB 


128 




;ALLOC0 


0E29+00 




OB 







;ALL0C1 


0E2A+0G80 




DW 


8000H+CKSZ 


; PERMANENT DISK WITH 


0E2C4O104 




DW 


1 




/OFFSET 


oooo+« 


XLT5 


EQU 







;NO XLATE TABLE 




DPB6: 


DISKDEF 


6,0,127,, 


16384, 


288, 512,0, 513, ,0 


0E2E-H3 


DPB6 


EQU 


$ 




;DISK PARM BLOCK 


0E2E+8000 




EW 


128 




;SEC PER TRACK 


0E30+07 




DB 


7 




/BLOCK SHIFT 


0E31+7F 




DB 


127 




; BLOCK MASK 


0E32+07 




DB 


7 




;E3CENT MASK 


0E33+1F01 




DW 


287 




/DISK SIZE-1 


GE35+FF01 




DW 


511 




/DIRECTORY MAX 


0E37+80 




DB 


128 




/ALLOCO 


0E38+00 




DB 







/ALLOC1 


0E39+0080 




DW 


8000H4CKSZ 


/PERMANENT DISK WITH 


0E3B+O102 




DW 


513 




; OFFSET 




1T6 


EQU 
else 







/NO XLATE TABLE 




DPB3: 


DISKDEF 


3,0,127,, 


16384, 


512,512,0,1 




DPB4: 


DISKDEF 


4,0,127,, 


16384, 


512,512,0,513 




DPB5: 


DISKDEF 


5,0,127,, 


16384, 


,512,512,0,1025 




DPB6: 


DISKDEF 


6, 0,127, , 


,16384,288,512,0,513 






end if 












ENDIF 












if 


mdisk 








DPB7: 


EQU 


$ 




/VIRTUAL DISK 






EW 


24 




/SECTORS PER TRACK 






DB 


3 




/BLOCK SHIFT 






EB 


7 




/BLOCK SHIFT MASK 






DB 







/EXTENT MASK 






DW 


142 




/DISK SIZE MINUS 1 






DW 


63 




/DIRECTORY MAX 






DB 


OCOH 




/ALLOCO 






DB 







/ALLOC1 






EW 







/CHECK AREA SIZE 






DW 







/OFFSET TO START TRACK 






end if 









Page 
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152 



MP/M II System Guide 



Appendi x S MP /M^Ban&sdUXIpSL 



if 



hardsk 



0E3D D5 
0E3E E5 
0E3F CD070B 
0E42 El 
0E43 Dl 
0E44 018000 

0E47+EDB0 
0E49 CD0A0B 



FfoMOVE; 



push 


d 


push 


h 


call 


swtuser 


pop 


h 


pop 


d 


lxi 


b,128 


LDIR 




DB 


0EDH r 0B0H 


call 


swtsys 



;switch in user bank 



;MOVE DATA TO/ERCM BUFFER 

.. PAKE LDIR S&TRUCTICN 

; switch system back^in 



DATA HAS BEEN MOVED TO/FRCM HOST BUFFER 



0E4C 3AF90A 



LDA 



WPTYPE 



;WRITE TYPE ?? 



0E4F E601 
0E51+280D 



if 


mpm20 


am 


WRDIR 


JRZ 


FWEND 


DB 


028H,FWEND-$ 


else 




CPI 


WRDIR 


JRNZ 


FWEND 


end if 





?TO DIRECTORY ?? 

;NO, JUST END UP HERE 

. FAKE JRZ INSTRUCTION 

,°TO DIRECTORY ?? 
;NO r JUST END UP' HlkE 



CLEAR HOST BUFFER FOR DIRECTORY WRITE 



0E53 3AF60A 
0E56 B7 

0E57+2007 
0E59 AF 
0E5A 32F00A 
0E5D CD6D04 



IDA ERFLAG 

QRA ; A 

JRNZ RtfEND 

DB 020H,FWEND-$-l 

XRA A 

STA HSIWRT 

CALL WRITEHST 



,-CHECK PRIOR TO DIR ACTIVITY 

? ERRORS ?? 

?SKIP IF SO.. •. 

._ FAKE JRNZ INSTRUCTION 

;ZERO TO ACCUMULATOR 

; BUFFER WRITTEN 



FWBJD: 



0E60 3AF60A 
0E63 B7 
0E64 C8 
0E65 21EA0A 
0E68 36FF 

0E6A C9 



RZ; % 

LXI 

MVf 

ENDIF 

RET 



ERStAG 

HyHSTDSK 
MVOFFH 



;IF ERRORS r RESET SO NO MATCH 
;NCNE, JUST RETURN 

;CANT POSSIBLY MATCH, MUST ERROR 



MVDTB: 



0E6B 2AAF00 
0E6E E5 
0E6F CD070B 
0E72 El 
0E73 111D13 
0E76 018000 



LHLD 

push 

call 

pop 

LXI 

LXI 

LDIR 



EMAADR ; MOVE DATA TO FLOPPY BUFFER 

h 

swtuser /switch in user bank, 

h ; cannot access non-common BNKXIOS 

D,FPYBUF ; 

B,128 ; 128 BYTES 
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0E79+EDB0 




DB 


OEDH 




._ FAKE LDIR INSTRUCTION 


0E7B C30A0B 




jmp 


swtsys 




; switch system back in 




• 


RET 






' 


0E7B P5 


MVDFB; 


PUSH 


PSW 




; MOVE DATA FROM FLOPPY BUFFER 


0E7F 3ABA0A 




LDA 


CMD 




* 



0E82 E620 




ANI 


20H 




; CHECK FCR READ 






JRNZ 


MVDPX 




; NO - BYPASS MOVE 


0E84+2013 




DB 


020H,MVDFX-$-l 


. FAKE JRNZ INSTRUCTION 


0E86 2AAF00 




LHLD 


EMAAER 




• 


0E89 E5 




push 


h 






0E8A CD070B 




call 


swtuser /switch 


in user bank, 


OESD Dl 




pop 


d 


cannot access non-common BNKXIOS 


0E8E 211D13 




LXI 


H,FPYBUF 




i 


0E91 018000 




LXI 
LDIR 


B,128 




l 128 BYTES 


0E94+EEB0 




DB 


0EDH r 0B0H 




..... — FAKE LDIR INSTRUCTION 


0E96 CDQAOB 




call 


swtsys 




/switch system back in 


0E99 PI 


MVDFX: 


POP 


PSW 




• 


0E9A C9 




RET 
IP 


HARD6K 




■ '*■'.' 


0E9B 




DS 


1 




;MUST PRECEDE HSTBUF 


0E9C 


HSTBUF; 


DS 


1024 




;HOST BUFFER AREA 


129C 




DS 
ENDIF 


1 




;MUST FOLLOW HSTBUF 
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INITIALIZE MP/M: REAL TIME CLOCK & DISKS 





rv, -r^ ■ if 


mpm20 


129D = 


dirbuf equ 


$ 


131D - 


fpybuf equ 
endif 


dirbuf+128 



SYSTEMINIT; 

;C - BREAKPOINT RESTART NUMBER 

; DE = BREAKPOINT RESTART HANDLER ADDRESS „ 

? HL = DIRECT XIOS INTERCEPT JUMP TABLE ADDRESS 



129D 225E13 


SHLD 


svdjt 


12A0 69 


MOV 


L,C 


12A1 2600 


MVI 


H,0 


12A3 29 , 


DAD 


H 


12A4 29 


DAD 


H 


12A5 29 


DAD 


H ;! 


12A6 226013 


SHLD 


SVDBPA 




if 


not mdisk 



;HL » RESTART JUMP ADDRESS 
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12A9 2A130B 




lhd 


sysdat 




12AC 2E0F 




mvi 


1,15 ;hl - .nmfamemsegs 


12AE 46 




mbv 


b,m ;b = nmtmemsegs 




test$bank$setup$ loop : 




12AF 23 




inx 


h 




12B0 23 




inx 


h 




12B1 23 




inx 


h 




12B2 23 




inx 


h ;hl » «memseg(i) .bank 


12B3 7E 




mbv 


a,m 




12B4 B7 




"bra 1 


a 




12B5 C2BF12 




jnz 


bank$setup 




12B8 05 




dcr 


b 




139 C2AF12 




jni 1 


test$bank$setup$loop 


12BC C3CE.12 




jmp 


af ter$bank$setup 






bank$setup : 






12BF 3E1A 




MVI 


A,01AH 


SELECT BANK 3 


12C1 CD4813 




CALL 


STMVTR ; 


SET UP VECTORS 


12C4 3E12 




MVI M 


a:,:oi2h ? 


SELECT BANK 2 


12C6 CD4813 




CALL 


STMVTR ; 


SET UP VECTORS, 


12C9 3EQA 




MVI 


A,00AH | 


SELECT BANK 1* h 


12CB CD4813 




CALL 


STMVTR ; 


SET UP VECTORS 




af ter$bank$setup : 








else 










mvi 


a,lah } 


bank 3 select for directory 






cSt*" 


09h 








IXl;- 4 ' 


h,0bffeh 








mvi" 


a,0e5h 








anp 


m 








inx 


h 








jrnz 


fill 








cmp 


m 








'W2"~"~ 


""dontfill 






fill:.. 










■■'" 


, mov , ... 


m,a i 


set directory initialized 






dcx 


h 








"fiOV""" " 


~"m r a' 








Ixi 


b,07ffh j 


first 2 k of bank one gets 






Ixi 


h,0 


" r > k ""V * T"- 






Ixi 


d f l 








mvi 


a f 0ah , 


' select bank 1 






out 


09h 








mvi 


m,0e5n 








Xdir 








dojif^ffi^; 










end if 






12CE 3E02 




MVI 


A r 002H 


-, SELECT BANK 


12D0 CD4813 




CALL 


SIMVTR 


? SET UP VECTORS 


12D3 213717 




Ixi 


h,ldrbiosbase+density$mask$offset 




1 1 1 1 1 


LXI 


H,1737H 


• MOVE PARAMETERS CHANGED BY 


12D6 117C00 




LXI 


P,SJ3L0 , 


THE SET UP PROGRAM 


12D9 010400 




LXI 
LDIR 


B,4 ■"■ 


• 4 SELECT MASKS 


12DC+EDB0 




DAB 


0EDH f 0B0H 


FAKE LDIR INSTRUCTION 
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12DE 118800 


LXI 


D,MODE 


7 


12E1 0J10400 


LXI 


B,4 


; 4 MODE SYTES 




LDIR 




! 


12E4+EDB0 


DB 


0EDH,0B0H 


. — — FAKE^LDIR INSTRUCTION 


12E6 2ABB17 


Ihld 


ldrbiosbase+misc$params$of£set 




W; f$- l *KiELD 


17BBH 


; GET MISC. PARAMETERS 


12E9 0128600 


SHLD 


MPARMS 


i 


12EC 3AB600 


LDA 


MPARMS 


; NOW TEST FOR CENTRONICS PRNTR 


12EF E6Q2ST 


ANI 


2 


'If :■>■ . <■■'■ 




JRZ 


PRTOK 


•:,•* NO I* LEAVE SERIAL 


12F1+2814 


CB 


028H,PRTOK-$-l 


; FAKE JRZ INSTRUCTION 


12F3 212C0B 


LXI 


H,CLIST 


/ 


12P6 221000 


SHLD 


WBCTE+13 


; CHANGE MINTER ROUTINE 


12F9 211F0B 


LXI 


H,CNSTAT 


; AND STATUS CHECK 


12JTC 22D50C 


SHLD 


DEVTBL 


9 


12FF 3E03 


MVI 


A f 003H 


^INITIALIZE PARALLEL PORT 


120A D313 


our 


013H 




1303 3E0P 


MVI 


A,00FH 


r 


1305 D313 


OUT 
PRTOK: 


013H 


... . 


1307 010300 


LXI 
MODESETi 


5,003H 


;SET THE MODE FOR DRIVES INIT 


130A CD2F02 


CALL 


SELSDP 


; SELECT DRIVE FOR MODESET ' 


130D 218800 


LXI 


H,MODE 


• ■ 
f 


1310 09 


DAD 


B 


; POINT TO CORRECT MODE BYTE" 


1311 C5 


PUSH 


B 


;SAVE COUNT OF DRIVES 


1312 41 


MOV 


B,C 


; B = DRIVE # 


1313 4E 


MOV 


C,M 


; . -'jj. 


1314 CDF807 


CALL 


XETMCD 


; SET MOVE v c, 


1317 CI 


POP 


B 


? 


1318 OD 


DCR 


C 


:?END OF LIST YET ?? 


1319 F2GA13 


JP 


MODESET 


;SET MODE FOR ALL IDRIVES 


131C CDD007 


CALL 


SDCCNF 


;SET DISK CONFIGURATION 


131F 018000 


LXI 


B f 80H 




1322 CD5502 


CALL 


SETEMA 


;SET EMA'ADDRESS 


1325 E5 


push 


h 






if 


mpra20 




1326 2A130B 


lhld 


sysdat 




1329 2E07 


mvi 


1,7 




13 2B 7E 


mov 

else 


a,m 






Ixi 


h,INTERUPT 






mov 


a,h 






end if 






132C El 


pop 


h 




132D ED47 


DB 


0EDH r 047H 


, ^^— FAKE STAI INSTRUCTION 


132F 3E60 


MVI 


A f 60H 


- f SET^VECTGR FOR CTC 


1331 D330 


OUT 


30H 


; CTC CHANNEL 


1333 3EA7 


MVI 


A,QA7H 


; RESET / LOAD TIME CONSTANT 
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1335 D333 
1337 3EFA 
1339 D333 



133B AF 
133C 32EF0A 
133F 32F10A 

1342 219B0E 
1345 360D 



OUT 


33H 


MVI 


A, 250 


■QUE* 


033H 


XPr; 


HARDSK 


XRA 


A 


STA. 


HSTACT 


STA 


UNACNT 


LXE 


H,HSTBUF-1 


MVI . 


M,Q0D 


ENDIF 





CHANNEL 3 
TIME CONSTANT 



;ZERO ACCUMULATOR 

;SET HOST BUFFER ?INACTIVE 

?SET UNALLOCATED COUNT TD&E8D 

?SETUP WRITE CONTROL BYTES® 



1347 C9 



BS?T 



STMVTR: 



1348 D309 




OUT. 


MEMPORT 


134A 3EC3 




MVI 


A,0C3H 


134C 320000 




STA 





134F 2A5E13 




LHLD 


SVDJT 


1352 220100 




SHLD 


1 


1355 2A6013 




LHLD 


SVDBPA 


1358 77 




MOV,- 


H*A 


1359 23 




INX 


H 


135A 73 




J10K 


Mi~& 


135B 23 




INX 


H 


135C 72 




;M0\fo: 


*!•*? 


135D C9 




RET; 




135E 


SVDJT; 


ES 


2 - 


1360 


SVDBPA: 


ES?V 


323 f 






if: 


mpn20 


1362 » 


^idgerna*re^Ci-] 


i$r.- 


139D » 


ifiaaafv 


tUSqffeUC: 


.ffitirbufi 



SET VECTORS FCR BDOS 
JMP INSTRUCTION 



139D 00 



; SAVED DIRECT JUMP TABLE ADDRESS 
; SAVED BREAK POINT ADDRESS 



org fdbuf + ( (xiosend-base) /fdbuf) * ( (xiosend-base) -f d 

db 

endif 



139E 



END 



070F ADDERRORS 


0DC6 ADRINTHD 


13CE AFTERBANKS 


03DA ALLOC 


081E ALVO 


0853 ALV1 


089E ALV2 


08DE ALV3 


091E AVL4 


095E ALV5 


099E ALV6 


09DE ALV7 


QA1E ALV8 


0A5E ALV9 


QA9E ALVA 


QAC2 ALVB 


0708 BADIO 


0D03 BANKNO 


12BF BANKSETUP 


0000 BASE 


081E BBGDAT 


4000 BLKSIZ 


067B CHECKIT 


06AE CHECKSTAT 


0220 CHKHRD 


06BC CHKSO 


06C7 CHKS1 


06CD CHKS2 


06E6 CHKS3 


06F7'CHKS4 ^ — 


-03A1 CHKUNA 


0B2C CLIST 


0B3B CLIST1 


OAFA CMD 


0B1F CNSTAT 


0D9D CNTX 


0B15 COLDSTART 


OB04CGMMONBASE 


1CB84 CGNIN 


0B8F CCNOUT 
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Mp/M^^&^^&ajjji" - 



'Appendfac~B*~ MP/M Banked XIOS 



0B79 

08BE 

09DE 

0AC2 

002C 

052E 

0784 

0CD5 

OQAF 

00C0 

GDD4 

0E10 

0QD1 

.0111 

0151 

00B2 

0246 

139D 

0085 

065C 

0DD2 

06AA 

0B67 

0337 

02F9 

0499 

04E1 

0008 

0400 

00B8 

GD67 

0D9E 

0CA9 

0028 

OAFB 

0000 

0088 

01A9 

0E99 

QAE9 

0009 

0D67 

OBOD 

0008 

0004 

05B3 

0C6A 

0C9A 

ODCF 

0BC5 

0BP7 

OBEC 

0C57 

0C87 

028B 



CONST 

CSV2 

CSV6 

CSVA 

DATA1 

DBLLOW 

DEL2 

DEVTBL 

EMAAER 

DMAS2H 

DFBO 

DPB4 

DPEO 

DPE4 

DPE8 

DPEPTR 

DIBLT 

FEBUF 

PLAGST 

FLOPPYSEEK 

FPYTCNT 

BWT1 

HDINTH 

HCME1 

HCMEIT 

HRW1 

HSW5 

HSTBLK 

HSTSIZ 

HTK1 

INTDCNE 

INTSTK 

LIST 

LPTPRT1 

MASK 

MDISK 

MODE 

MCDL2 

MVDFX 

NEWSEC 

NMBDEV 

N0T1SEC 

PDISP 

PLCI3 

PLC03 

POINT 

P0LCI3 

P0LC03 

PREEMP 

PT0IN1 

PT1IN 

PT1ST 

PT20UT1- 

PT30LJT 

READ 



0080 

08FE 

0A1E 

QAE6 

002E 

0530 

0782 

129D 

OOBE 

OOCA 

0DE3 

0E1F 

00E1 

0121 

0161 

0790 

QAF6 

0B50 

0084 

0661 

OEDO 

0B53 

0B71 

0340 

0321 

04C4 

04E6 

0E9C 

0010 

00B9 

005E 

0051 

0CB8 

001F 

0439 

0009 

130A 

0OB6 

0E6B 

0AE7 

075F 

0D2F 

0005 

0001 

0000 

OBAD 

OBDD 

0083 

0B01 

OBCA 

0C04 

0C36 

0C2B 

0C96 

036B 



CPMSPT 

CSV3 

CSV7 ', 

CSVB 

DATA2 

DBL3AVE 

DELAY 

DIRBUF 

EMALEN 

EMAS3 

DPB1 

DPB5 

DPE1 

DPE5 

DPE9 

DSCNO 

ERFLAG 

FDINTH 

FLAGWT 

FPS1 

FPYTIME 

HARDINT 

HDSTFD3 

HQME1A 

HCMESOFT 

HRW2 



HSTBUF 

HSTSPT 

HTK2 

INTERUPT 

LAST 

LIST1 

LPTSTSO 

MATCH 

MEMPORT 

MODESET 

MPARM 

MVOIB 

NEWTRK 

NOFPYRST 

NOTICKN 

PLCIO 

PLCOO 

PLLPT 

POLCIO 

POLCOO 

POLL 

PRETRIES 

PTOOUT 

PT1IN1 

PT2IN 

PT2ST 

PT30UT1 

READHARD 



083E 

095E 

QA5E 

0D04 

002A 

0519 

0037 

OOAC 

OOBA 

OOCE 

0DF2 

0E2E 

00F1 

0131 

0171 

0552 

0D10 

041C 

0B47 

131D 

073A 

FFFF 

OOAE 

0357 

0B03 

04CD 

0504 

QAEA 

OAEB 

07F8 

0721 

062D 

061E 

0029 

0D17 

0002 

0191 

FFFF 

0AE6 

0461 

0415 

0B1C 

0006 

0002 

05D4 

OBEC 

0C1C 

OCCB 

1307 

0BD9 

0C09 

0C43 

0C75 

0C6A 

047F 



CSVP ~:/ 
CSV4 ' j: 

csvs '■',:'..;'■"■ 

CURMIH! 
DATA3 l ~ 
DBLOPQ&tE '" 
DEMSITSMAS 
DISKNQ ,''. 

emaS'i; ..:,".: . 
EMAS^r:" 

DPB2 , .. 

dpb6 :,r; 

DPE2 ..'"' 
DPE6 : 

dpea ;.:. ; 

DSKSEL V.;. 

exitreSion* 

FILLHST, / 

floppyint ;.; 

FPYBUF^ 

HARDSK, '.■' ; 

HEADER? i*;... 

HCME2 : \ 

HCMETOGOiE 

HFW3 ' v ' 

HFW7 

HSTDSK 

HSTTRK 

INITEND 

INTFIX 

LDH1 

LQADHEAD 

LPTSTS1 

MAXCONSOLE 

MEMSK 

MODLO 

MPM20 

NEWDSK 

NEWTRRCMP 

NCMATCH 

NULLINT 

PLCI1 

PLC01 

BTTFN 

P0LCI1 

P0LC01 

POLLDEVICE 

PRTOK 

PT0OUT1 

PTlOlfT 

PT2IN1 

PT3IN 

PT3ST 

READHST 



087E 
Q99E 
&A9E 

001C 
00B4 
0782 
0CD2 
JTFF 
00C6 
OOBC 
QEOl 
00D1 
0101 

qi4i 

0181 
1j08E 
OOOO 
:D763 
0687 
0006 
0760 
0005 
031A 
0343 
"p48F 
04D9 
OAEF 
OAED 
OAFO 
0D1A 
0D7F 
1700 
00 IE 
0DC6 
OOOC 
OOBB 
019D 
0E7E 
OAEE 
0004 
03D4 
OOAO 
0007 
0003 
05D1 
0C2B 
0C5B 
OCBC 
0BB8 
OBAD 
0C18 
0C48 
0C82 
0B9A 
0AF8 



csvs£:,;; 
csv9: v ", 

DATAOP " 
EBliAD 

DEL1 V . v ;." 

DEV$C! .- 

EMA,*>^ 

emas2£: 

EMASA ■ ''J 

dpb3 ;; : 

DPBASEJ- 

DPE3 '::■;,. 
DPE7-/::,;. 
dpes -Z: : :', 

nspRih - 

FALSE 
FL0I*P¥l6 

FpriiAq,V 



#PF£&£:. 

ttCME'^'. " 
HOMEHA&) 

hfwo : r 

HRW4 ' 

HSTACT 

HSTSEC 

HSTWRT 

INT1HND 

INTINIT 

LDRBIOSBAS 

LPTPRTO 

LSTINTSTK 

MAXDSK 

MISCPARAMS 

MGDLl 

MVDFB 

NEWHST 

NMBCNS 

NOOVF 

PCNT 

PLCI2 

PLC02 

PNTH2 

P0LCI2 

P0DC02 

POLLPT 

PTOIN 

PTOST 

PTlOtfTl 

PT20UT 

PT3IN1 

PTBL3MP 

READOP 
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05E4 
02EE 
0E3D 
Q7DE 
0003 
0203 
022F 
0211 
02A1 
Q547 
0575 
0601 
1348 
001D 
1360 
ODCA 
129D 
12AF 
OQAD 
FFFF 
0AF3 
0000 
046D 
0B10 
01B5 
0000 



READSOFT 

RETMCD 

FWIOVE 

SDDBL 

SECSHF 

SELDSK 

SELSDP 

SETDSK 

SETMGD 

SHD1 

SLS3 

SRW1 

STMVTR 

STSO 

SVDBPA 

SVDSP 

SYSTEMINIT 

TESTBANKSE 

TRAKNO 

TRUE 

UNATRK 

WRALL 

WRITEHST 

XDOS 

XLTO 

XLT4 



0308 
0AF7 
03E2 
07F1 
00B1 
0242 
0556 
0544 
0273 
05A1 
0584 
0615 
ODOB 
002D 
0DC8 
OBQA 
0D1A 
ODCE 
0B02 
0AP1 
0717 
0001 
05P2 
07F8 
01CF 
0000 



REALDISK 

RSFLA& 

RWOP#; 

sdli^.; 

SECTjttX' 



SELSOFT 

SETEfe; 

SETTEE; 

SLHT 

SIS4' 

SRW2, 

sTcfctixfcK 

stsi: 

SVDI 



T20M$ ! 





T -FFFF RELOC,. 
" 0B1A RTNEtygTY 
t&FD SAVE1 ; 

&7F3 SDCpCv 

05D6 SECTRAN 
05?B JS| 
0278. 

3)540 'SETKU 
Q±l SET^BI* 

t$?D slsx rt 

£$95 SLSfeRR 
QD05 STARTCLOCK 
t$E STRN1 
,0A2F STS2 
lilSE SVDJT 
,08107 SWI^ER 
^l.TBtJHP 
rotSi'tlWERINT 

^070;£RkQu 

, ... 2 

'ART 



WRT 
XETMPQ 
XLtY 
XLT5 



5 K 

:d^96 
;bfc9 

iibo(ffe^ 




0643 
0E60 
07D0 
0007 
007C 
0CE9 
0255 
0532 
026D 
056B 
02E3 
OAFC 
05E2 
002B 
ODCC 
OB 13 
0094 
0D9C 
064A 
0AF5 
0003 
037E 
0002 
1362 
0000 



REMOVSIA 

RWENtX\ 

SDCOI^. 

SECM$K 

SELOi ? 




SI 
SI 

sist: ; 

3*ERR V J 

STATUS"* 

STRN2 „ 

STS3 : 

SVDRET 

SYSDAT 

TCNT 

TOGCNT 

TRKTST 

unasec;: 

WBOTE. .:. 
WRIT^RD 
WRUAL ^ 
XIOSEJNp; 
XLT3'."""*' 
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INDEX 



A 



AL1 field, 27 

ALV r 25 

attribute byte, 56 



B 



bank byte, 57 
bank-switched memory, 55 
banked resident system 

process, 49 
Basic Disk Operating System 

(BDOS), 15, 48 
BIOS, 15 

BIOS devices, 16 
BIOS disk definition, 29 
BIOS Disk Definition Tables, 

24 
BIOS entry point, 15 
BIOS jump table, 16 
BIOS subroutines, 15, 17, 19, 

20, 22, 23 
BIOS WRITE entry point, 36 
BLM field, 27 
BLM values, 27 
blocking and deblocking, 36 
BLS, 28 

BNKBDOS, 47, 48 
BNKBDOS.SPR, 49 
BNKXDOS, 47 
BNKXIOS, 1, 3 
BNKXIOS.SPR, 48 
BOOT, 12 

booting MP/M II, 6 
bootstrap operation, 13 
breakpoint, 6 

breakpoint restart number, 53 
BSH field, 27 
BSH values, 27 



character I/O, 15, 16 

CKS field, 27 

cks parameter, 31 

CKS value, 29 

cold start loader, 6, 7 

common memory base page, 55 

commonbase, 17 



COMMONBASE subroutine, 33, 37 

CONIN, 17 

CONOUT, 18 

consoles, 16 

CONST, 17 

copyright, 11 

CSV, 25 

custom generation of an MP/M 

II boot, 8 
custom resident system 

processes, 49 
customized XIOS, 47 



dayfile logging, 55 

DDT, 2, 4, 7, 47 

debugging a resident system 

process, 4 
debugging an XIOS, 4, 5, 6 
default entry values, 52 
delay list, 44 
dir Parameter, 31 
DIRBUF, 25 
directory check information, 

29 
directory entries, 28 
disk I/O, 15, 16 
disk organization, 12, 13 
Disk Parameter Block (DPB) , 

26, 29 
Disk Parameter Headers (DPHs) , 

24, 25, 32 
Disk Parameter Table Format, 

24 
DISKDEF, 24, 29, 30 
disks, 16 
dks parameter, 31 
DMA address, 16 
dn parameter, 31 
DPB, 25 
DPBASE, 25 
DPH labels, 32 
DRM, 28 
DRM field, 27 
DSM field, 27 



END statement, 30 
ENDEF macro, 30, 32 
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execution address, 5, 7, 11 

EXITREGION, 41 

EXM field, 27 

EXM values, 28 

Extended Input/ Output System 

(XIOS), 39 
external procedure access 

code, 34 
external procedure entry 

points, 33 



Flag Set, 44 

flags, 43 

fsc parameter, 31 



logical drives, 30 
lsc parameter, 31 



MAC, 29 

macro statements, 29 " 

MAXCONSOLE, 42 

memory map, 5, 56 

memory segment table, 56 

MP/M II Boot, 7 

MP/M II nucleus, 49 

MPM.SYS, 47 

MPM.SYS file, 11 

MPMLDR, 2, 6 

MPMLDR display, 58 



GENSYS, 51, 57 
GETSYS, 6, 8, 9 

H 

header block, 32 
HOME, 18 



IDLE process, 43 
Intel MDS-800, 7, 12 
interrupt service routines, 43 
interrupts, 3 



jump addresses, 15 
jump instructions, 15 
jump vector, 15, 33 



kl6 parameter, 31 
L 

LDRBIOS, 1, 2, 3 
licensing agreement, 11 
LIST, 18 

list devices, 16 
LISTST, 23 
load address, 7 
loading MPM.SYS, 11 
locked records, 54 
logical devices, 15 



OFF field, 27, 29 
ofs parameter, 3i 
one second flag, 44 



page address, 11 
page relocatable files, 49 
PDISP entry 3 point, 35< 44 
POLLDEVICEjMO j 
prm parameter^ 31 
process termination, 15 
PUNCH, 18 
PUTSYS, 6, 8, 10 



R 



READ, 21 
READER, 18 
real time, 44 
RESBDOS, 47, 48 

RESBDOS.SPR, 48 

resident system process, 4^, 

49, 56 
restart number, 4 
RESXIOS, 1, 3 
RESXIOS.SPR, 48 
RET instruction, 15 
RET I instruction, 44 3 
RMAC, 29 



sector allocation, 12 '■■ 
SECTRAN, 23 

SEKDSK entry point, 36 
SELDSK, 2, 16, 19> 25 - 
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SELMEMORY, 40 

SETDMA, 20 

SETSEC, 20 

SETTRK, 20 

SID, 2, 4, 7, 47 

skew factor, 23 

skew factor parameter ,,,^3^ 

skf parameter, 31 

DPT field, 27 

STARTCLOCK,. ir 40 

STAT, 33 

STOPCLOCK, 41 

SUBMIT, 54 

subroutine, 1 

SWTSYS, 22 

SWTSYS entry point, 35 

SWTUSER, 22 * '"' - 

SWTUSER entry point, 35 

SYSDAT entry, 35 

SYSDAT page, 11 

SYSGEN, 6, 7, 8 

system data page^'35^ .-47^5$: 

system tick, 44, 45" 

SYSTEMINIT, 42 



XIOS jump vector, 39 
XLT, 25 v 



Z80 CPU, 54 % 



temporary f iie "drive^54^ ... 
Terminal Message Proce?si5§i 

(TMPs) ,53 
time bases, 44 
TMP, 47 
top page of operating system*; 

53 
trademark, 11 
translation table, 32 
translation vectors, 26 ?l 

U 

user mempry ? sf5m^^ :t ^, 
w 

WBOOT, 17 
WRITE, 22 
WRITESEC sub rqut inef ,~. # ; 



XDOS, 15, 47, 53 

XDOS entry point ^,,35^ 

XDOS.SPR, 49 

XIOS, 1, 3, 15, r 48 ,.,, , 

XIOS entry points, 15, : 39 
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